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SEQ 0001 


AC-S068A-MC 

CZCTBAO gets HOLLORITH 

8035-8045 (11/70) 

+e ‘wi CARD TERMINAL CONTROL 
A FORMAT: 8 BIT HOLLERITH 

20. MARCH 80 


J. BENNETT 

COMPUTER SPECIAL SYSTEMS 
P.W. DUKE 

VIJAY ANANDWALA 


THE INFORMATION IN THIS DOCUMENT IS SUBJECTED TO 


ON 
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


* 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED 
UNDER A LICENSE AND MAY ONLY BE USED OR COPIED 
IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. 


FOR 


DIGITAL EQUIPMENT CORPORATION yy f ~ RESPONSIBILITY 
THE USE OR RELIABILITY OF ITS S$ ARE 


ON EQUIPMENT THAT 1S NOT SUPPLIED By. DIGITAL. 


COPYRIGHT: 


1974,1980 


DIGITAL EQUIPMENT CORPORATION. 


MAYNARD ,MASS. 
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C2ZCTBALP11 =. 20-May-80 08:5 SEQ 0002 
ae we ; 

5 

5 

34 1.0 ABSTRACT 

56 . THIS PROGRAM TESTS THE OPERATIONAL ABILITY OF THE CTS11-JC TO 
57 INTERFACE TO AN 8035- “8045 80 COLUMN READER/PUNCH. THe PROGRAM 
58 CONSISTS OF TWO SETS OF TESTS, LOGIC TESTS AND CARD TESTS. 

59 THE LOGIC TESTS ARE PERFORMED WITHOUT CARDS IN THE 8035-8045. 
60 THE CARD TESTS aire A FOUR PASS SERIES OF TESTS WHICH USE 20 
61 CARDS. THE CARD TESTS SHOULD NOT BE RUN UNTIL THE LOGIC 

62 TESTS HAVE RUN SuCcEsSFULt YS THE PROGRAM IS DEVICE CODE 

63 INDEPENDENT AND THERE IS AN INPUT ROUTINE WHICH ALLOWS 

64 THE OPERATOR TO SPECIFY DEVICE ADDRESS, INTERRUPT VECTOR 

65 ADDRESS AND BR LEVEL. THIS ROUTINE IS RUN AT THE 

66 ‘ BEGINNING OF EVERY PASS THROUGH THE PROGRAM. THERE IS A 

67 : GREAT DEAL OF INTERACTION REQUIRED BETWEEN THE OPERATOR 

68 AND THE PROGRAM. THIS INTERACTION IS ACCOMPLISHED BY MEANS 
69 OF TELETYPE DIRECTIONS AND MESSAGES TYPED OUT DURING THE 

70 RUNNING OF THE PROGRAM WHICH FREQUENTLY REQUIRES OPERATOR 

71 RESPONSE. DIRECTIONS GIVEN TO THE OPERATOR VIA THE TELETYPE 
es “MUST BE FOLLOWED EXACTLY TO ACHIEVE SUCCESSFUL TESTING. 

74 

rs 2.0 ° REQUIREMENTS 

7 2.1 EQUIPMENT 

79 PDP=11 WITH MINIMUM oF 4K OF MEMORY 

80 CTS11-JC INTERFACE 

81 8935-8045 80 COLUMN READER/PUNCH 

83 2.2 PRELIMINARY PROGRAMS 

BS ALL PROCESSOR DIAGNOSTICS MUST RUN ERROR FREE 

87 

88 3.0 LOADING PROCEDURE 

90 ‘PROCEDURE FOR LOADING NORMAI ABSOLUTE TAPES SHOULD BE FOLLOWED. 
92 

93 

9% 4.0 STARTING PROCEDURE 

% 4.1 CONTROL SWITCH SETTINGS 

98 SR15=1 CONTINUE AFTER ERROR 

99 SR14= DELETE ERROR TYPEOUTS 
100 SR13=1 LOOP ON ERROR 
101 , SR2=1 BYPASS DEVICE CODE ENTRY ROUTINE 

102 SR1=1 DO LOGIC TESTS 

195 SRO=1 DO CARD TESTS 
105 ‘2 OPERATOR ACTION 
106 
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5.0 


6.0 


7.0 


LOAD PROGRAM INTO MEMORY 

SET SWITCH REGISTER TO STARTING ADDRESS 200(8) 
PRESS LOAD ADDRESS 

SET SWITCH REGISTER TO DESIRED OPTIONS 


PRESS START 


OPERATING PROCEDURE 


FOLLOW DIRECTIONS GIVEN ON THE TELETYPE EXACTLY. THIS IS 
NECESSARY FOR SUCCESSFUL TESTING. AT THE END OF A 
COMPLETE PASS THROUGH THE SELECTED ROUTINES THE PROGRAM 
WILL TYPE OUT ‘‘END OF TESTING'' AND HALT. TO REPEAT 

FOR ONE PASS, PRESS CONTINUE. 


ERRORS 
6.1 ERROR HALTS 


THE MEANING OF AN ERROR HALT CAN BE DETERMINED BY READIN 
THE PROGRAM LISTING AT THE ADDRESS OF THE ERROR HALT. 


6.2 ERROR TYPEOUTS 
ALL ERROR TYPEOUTS WILL INCLUDE THE FIRST LINE 
SHOWN BELOW, AND WHEN RELEVANT ONE OR MORE OF THE 
OTHER THREE LINES. 
"ERROR AT ADDRESS AAAAAA 
"G00D=BBBBBB 
“BAD =CCCCCC 
“COLUMN #=DD"" 
WHERE : 
AAAAAA = THE ADDRESS OF THE ERROR 
BBBBBB = THE EXPECTED RESULT FROM A TEST 
CCCCCC = THE ACTUAL RESULT FROM A TEST 
DD = THE COLUMN NUMBER IN ERROR 
PROGRAM DESCRIPTION 
Fat LOGIC TESTS 


THE LOGIC TESTS ARE A SERIES OF 


OUTS 1S NECESSARY FOR THIS TEST TO BE SUCCESSFUL. 
7.2 CARD TESTS 


6 TESTSS WHICH DO NOT 
REQUIRE CARDS TO BE IN THE 8035-8045. THESE 6 TESTS PER 
BASIC CHECKS ON THE 4 REGISTERS ON THE INTERFACE AND 
TESTS AS MUCH AS POSSIBLE OF THE OPERATIONAL CAPABILITY 
OF THE INTERFACE WHILE IN A STATIC CONDITION. CORRECT 
RESPONSE BY THE OPERATOR TO INSTRUCTIONS GIVEN VIA TYPE 
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-REM 


SEQ 0004 


THE CARD TESTS ARE A SERIES OF 4 ROUTINES (PASSES) 
WHICH CHECK THE ABILITY OF THE INTERFACE TO PERFORM 
Rr OuiRE A IN CARD HANDLING OPERATIONS. THE TESTS 
REQUIRE A DECK _OF 20 BLANK CARDS ven at ARE PASSED 
THROUGH THE 8035- oy 4 TIMES, WHICH AT THE 
CONCLUSION OF THE 4 PASSES CONTAIN PUNCHED . 
INFORMATION WHICH MUST BE VISUALLY VERIFIED BY THE 
OPERATOR. VERIFICATION OF CORRECT OPERATION OF THESE 
4 PASSES IS DONE BY THE OPERATOR BASED ON INSTRUCTIONS 
GIVEN VIA_TYPE OUTS AT THE BEGINNING AND END OF EACH 
PASS. DETAILED DESCRIPTIONS OF WHAT IS DONE DURING 
EACH PASS IS GIVEN BELOW. 


PASS 1 = THE OPERATOR PUTS 10 BLANK CARDS IN EACH INPUT 

HOPPER. THE PROGRAM READS THESE CARDS AND PUTS THEM INT 

THE 2 STACKERS, 10 BLANK CARDS IN EACH STACKER. THE 

SrAcen VERIFIES THAT THERE ARE 10 BLANK CARDS IN EACH 
K . 


PASS 2 = THE OPERATOR PUTS THE 20 BLANK CARDS IN THE 
PRIMARY HOPPER. THE PROGRAM READS THESE CARDS AND ALSO 
PUNCHES THE CHARACTER SET ON EACH CARD. THE 

CARDS ARE PUNCHED IN A PRECESS FASHION WITH THE 1ST 
PUNCHED CHARACTER OF CARD #1 APPEARING IN COLUMN #11 
AND SO ON UNTIL THE 1ST PUCNCHED CHARACTER OF CARD #20 
1S IN COLUMN #31. THE CARDS ARE ALL PLACED IN STACKER 
#1, THE OPERATOR VERIFIES THAT THE CHARACTER 

SET APPEARS IN EACH CARD AND THAT PUNCHING WAS DONE IN 
A PRECESS FASHION. THE CHARACTERS APPEAR ON THE CARDS 
IN THE ORDER SHOWN BELOW: 


1"#$2B" () #4 ,-/0123456789: ; <=> 2 GABCDEF GH] UKLMNOPQRS TUVWXY 


PASS 3 = THE OPERATOR PUTS THE 20 CARDS IN THE 

PRIMARY HOPPER. THE PROGRAM READS THE CARDS AND ALSO 

PUNCHES MORE CHARACTERS ON EACH CARD BEGINNING WITH 

COLUMN #1, CARD #1 WILL HAVE THE LETTER ‘' A ‘* PUNCHED 

CARD #2 WILL HAVE 2 CHARACTERS (LETTER A) UP TO 

CARD #20 WHICH WILL HAVE 20 CHARACTERS (LETTER A) PUNCHE 

ALL THE CHARACTERS PUNCHED IN THIS TEST WILL BE CAPITAL 
THE CARDS WILL BE PLACED IN STACKER #1, 

THE OPERATOR VERIFIES THAT THESE CHARACTERS WERE 

PUNCHED CORRECTLY 


THIS IS THE END OF THE CARD TESTS. 


sCTS11~ ~JC 80 COLUMN CARD TERMINAL CONTROL INTERFACE TEST (11/70) 
DATA 1S IN HOLERITH. (8 BIT) FORMAT 
:DECSPEC- CZCTBA 


; AUTHORS : 


weeee MODEL 8035-8045 te0ne 


PAPA PA TTI ne oe oe 
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CZCTBA.P11 20-MAY=-80 0 
19 
20 
i 
$38 
224 
225 177776 
226 177570 
227 177560 
228 177562 
229 177564 
230 177566 
231 000000 
232 000001 
233 000002 
234 000003 
235 00C004 
236 000005 
237 000006 
238 0u0007 
239 000000 
240 104000 
241 104400 
242 00004 
243 000003 
244 000002 
245 000001 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
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UPDATE AUTHOR: VIJAY ANANDWALA 
; LuPoated MARCH=80) 


»LIST 
- ABS 

PS=177776 

SR=177570 

TKS=177560 

TKB=177562 

TPS=177564 

TPB=177566 

RO=%0 

R1=%1 

R2=%2 

R3=%3 

R4=24 

R5=%5 

SP=%6 

PC=%7 

XX=HALT 

ERR=EMT 

TYPE=TRAP 

COL=4 

GB=3 

G=2 

B=! 
-MACR 
BIT 
BEQ 
ENDM 
-MACR 
BITS 
BEQ 
-ENDM 
-MACR 
BIT 
BEQ 
-ENDM 
-NLIST 
CMP 
BNE 
CMP 
BNE 
-LIST 
JMP 
-ENDM 
-MACR 
LP=. 
MOV 
MOV 


ME 

WITDONE 

#200,aTCR 

76 ;WAIT FOR DONE FLAG 

WTODR . 

#200,aTIRHI 

76 ;WAIT FOR OUTPUT DATA REQUEST 
WTIDR 

#200,aTIR ; 

76 ;WAIT FOR INPUT DATA REQUEST 


-MACR LOOP A 
ig 

#.-10,LASTPC 
-+6 


aaA 
CKTCR A,B 


A,GOOD 
aTCR,BAD READ CMD REGISTER 


SEQ 0005 


aoe 

~ zs 
DP od 
ee 


oo 
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75. CMP GOOD ,BAD 5 
76 BEQ . +4 6 

277 ERR*GB ;CMD REG = VALUE READ NOT EQUAL TO EXPEC 6 
278 LOOP B 6) 
279 .ENDM 6 
280 6 
281 .MACR CKTSR A,B 6 
282 LP=. 6 
283 MOV A,GO0D 6 
284 MOV aTSR,BAD ;READ STATUS REGISTER 6 
285 CMP GOOD ,BAD 6 
286 BEQ .+4 6 
287 ERR+GB ;STATUS REG = VALUE READ NOT EQUAL TO EX 6 
288 LOOP B 6 
289 ~ENDM 5 
290 4 
29% .MACR CKTDR A,B 6 
292 LPs, 6 
293 MOV A,GOOD 6 
294 MOV @TDR,BAD ;READ DATA REGISTER 6 
295 CMP GOOD ,BAD 6 
96 BEQ +4 6: 
297 ERR+GB 7DATA REG = VALUE READ NOT EQUAL TO EXPE & 
298 LOOP B 6 
299 ENDM 6; 
300 6 
301 .MACR = CKTIR A,B . 
302 LP=. ( 
303 MOV A,GOO0D ¢' 
304 MOV aTIR,BAD ;READ INTERRUPT REGISTER C 
305 CMP GOOD ,BAD C 
306 BEQ +4 « 
307 ERR+GB ; INTERRUPT REG = VALUE READ NOT EQUAL TO C 
308 LOOP B i? 
309 ~ENDM , 6; 
310 000000 = 6; 
311 000140 REPT 140 ; 6; 
312 +2 ; C 
313 HALT « 
314 ~ENDR « 
(1) 000000 000002 a C 
(1) 000002 000000 HALT ( 
(1) 000004 000006 .+2 (1 
(1) 0000 0000 HALT C 
(1) 000010 000012 +2 ( 
(1) 000012 000000 HALT : 
(1) 000014 000016 ‘ +2 4 
(1) 000016 000000 HALT i 
(1) 000020 000022 + 6! 
(1) 000022 00 HALT i 
(1) 000024 000026 +2 6! 
(1) 000026 000000 HALT ( 
(1) 000030 000032 +2 (| 
(1) 000032 000000 HALT a 
(1) 000034 000036 + C 
(1) 000036 000000 HALT « 
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1) 0040 00 s*2 ( 
(1) 000042 000000 HALT ( 
1) 0044 000 +2 ( 
(1) 0000466 00 HALT 6 
(1) 000050 000052 +2 ( 
41) 000052 000 HALT ( 
(1) 000054 000056 + ( 
(1) 56 000000 HALT ( 
(1) 000060 000062 +2 ( 
(1) 000062 000000 HALT ( 
(1) 000066 -4*2 ( 
(1) 000066 000000 HALT ( 
(1) 000070 000072 +2 6 
(1) 000072 000000 HALT 6 
(1) =00007 + 6 
(1) 000076 000000 HALT 6 
(1) 000100 000102 .42 6 
(1) 000102 000000 HALT 6 
(1) 000104 000106 .42 6 
(1) 000106 0000 HALT 6 
(1) 000110 000112 at” 6 
(1) 000112 000000 HALT 6 
(1) 000114 000116 +2 ( 
(1) 000116 000000 HALT 6 
(1) 000120 000122 e@ 6 
(1) 000122 000 HALT 6 
(1) 000124 000126 .42 6 
(1) 000126 000000 HALT ( 
(1) 000130 000132 + ( 
(1) 000132 “00000 HALT ( 
(1) 000134 0013 +2 ( 
(1) 0001 000000 HALT ( 
(1) 000140 00014 +2 ( 
(1) 000142 000000 HALT ( 
(1) 000144 000146 .4+2 ( 
(1) 000146 000000 HALT 6 
(1) 000150 000152 .+2 ( 
(1) 000152 000000 HALT ( 
(1) 000154 000156 .+2 ( 
(1) 000156 000000 HALT ( 
(i) 000160 000162 +2 ( 
(1) 000162 HALT ( 
(1) 000164 000166 .+2 ( 
(1) 000166 0000 HALT ( 
(1) 000170 000172 +2 6 
(1) 000172 0000 HALT ¢ 
(1) 000174 000176 .+2 é 
(1) 000176 000000 HALT é 
(1) 000200 000202 +2 ( 
(1) 000202 00 HALT ( 
(1) 206 000206 o@ ¢ 
(1) 206 00000 HALT ( 
(1) 000210 000212 .+2 ( 
Hh 000212 000 HALT ( 
(1) ( 
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(1) =000400 02 +2 ( 
(1) 000402 000000 HALT ( 
(1) 000404 000406 +2 ( 
(1) 000406 000000 HALT ( 
(1) 000410 000412 o +2 ( 
41) 000412 HALT ( 
(1) 000614 000416 +2 ( 
*(1) 000416 000000 HALT ¢ 
(1) 000420 000422 a%Z é 
(1) 000422 000000 HALT ¢ 
(1) 0004626 000426 .+2 é 
(1) 000426 000000 HALT ( 
(1) 000430 000432 +2 ( 
(1) 000432 000000 HALT ¢ 
(1) 000434 000436 .+2 é 
(1) 000436 000000 HALT ( 
(1) 000440 000442 .+2 ( 
(1) 000442 000000 HALT é 
(1) 000444 000446 42 ( 
(1) 000446 000000 HALT ( 
(1) 000450 000452 +2 ( 
(1) 000452 000000 HALT ( 
(1) 000454 000456 +2 ( 
(1) 000456 000000 HALT ( 
(1) 000460 000462 .+2 ( 
(1) 000462 000000 HALT ( 
(1) 000464 000466 .+2 é 
(1) 000466 000000 HALT ah 4 
(1) 000470 000472 .+2 ( 
(1) 000472 000000 HALT | ( 
(1) 000474 000476 .+2 ( 
(1) 000476 0000: HALT ( 
(1) 000500 000502 .+2 ( 
(1) 000502 0000: HALT ( 
(1) 504 000506 .+2 ( 
(1) 506 0000 HALT 6 
(1) 000510 000512 .+2 6 
(1) 000512 0000: HALT | 6 
(1) 000514 000516 ° .+2 6 
(1) 000516 0000 HALT 6 
(1) 000520 000522 .+2 ( 
(1) 000522 0000: HALT ( 
(1) 000524 000526 + 6 
(1) 000526 HALT é 
(1) 530 000532 +2 ( 
(1) 000532 000 HALT ( 
(1) 000534 000536 .+2 ( 
(1) 536 HALT ( 
(1) 000540 000542 +2 ( 
(1) 000542 HALT ( 
(1) 000544 000546 .+2 ( 
(1) 546 HALT ( 
(1) 000550 000552 a2 6 
(1) 000552 000 HALT ( 
(1) 000554 000556 .+2 F ( 
(1) 556 000 HALT ( 
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CRCTBALPIT 20-May-80 08554 SEQ 0010 (oca 
aw 560 000563 .42 
(1) 000562 00000: HALT ( 
(1) 000564 000566 +2 r 
a) 566 000000 HALT ( 
(1) 000570 000572 +2 ( 
41) 000572 000000 HALT é 
(1) 000574 000576 42 é 
a) $76 000000 HALT é 
315 000030 .=30 ( 
316 000030 013476 WORD ERROR ( 
317 000032 000340 .WORD —- 340 é 
318 000174 12174 
319 000174 000000 DISPREG: .WORD 0 ( 
320 000176 000000 SWREG: “WORD =O ( 
321 000034 .=34 
322 000034 013662 “WORD —- TYPOUT ( 
323 000036 000340 WORD 340 ( 
324 000004 ERRVEC =4 ;TIME OUT AND OTHER ERROR ( 
325 177570 DSWR =177570 sHARDWARE SWITCH REGISTER ( 
326 177570 DDISP=177570 ;HARDWARE DISPLAY REGISTER é 
327 000700 .=700 
328 000700 177570 SWR: WORD DSWR sADDRESS OF SWITCH REGISTER ( 
329 000702 177570 DISPLAY: WORD DDISP ;ADDRESS OF DISPLAY REGISTER ( 
330 000704 000000 APASS: “WORD 0 :PASS COUNT oe | 
331 000706 000000 AENVM: WORD 0 S ENVIRONMENT REGISTER ( 
332 000710 000000 ASWREG: WORD 0 ;APT SWITCH REGISTER ( 
333 000712 000 AUTOB: -BYTE 0 S AUTOMATIC MODE INDICATOR ( 
334 000713 000 INTAG: -BYTE 0 ; INTERRUPT MODE INDICATOR ( 
335 000714 000000 “WORD bed 
336 000200 -=200 ia 4 
337 000200 000167 000574 JMP START oa 
338 001000 -=1000 | ¢ 
339 001000 012767 000340 176770 START: MOV #340,PS ;SET BPU TO LEVEL #7 é 
340 001006 012706 001000 MOV #1000,SP sINITIALIZE THE STACK POINTER é 
341 001012 005067 020052 CLR SCOPE : INITIALIZE SCOPE | é 
342 001016 004767 000066 JSR PC, SWRCK Ta | 
343 001022 104400 TYPE S94 
344 001024 017745 PROGNM 3’ DECSPEC-11-CZCTBAO-CARD READER - TEST foe | 
345 001026 004767 013174 JSR PC,GTSWR | j 
346 001032 032777 000004 177640 BIT #4 aSWR ee | 
347 001040 001002 BNE STi :1F SR2=0 S| 
348 0010462 004767 012214 JSR PC ,DEVCOD [G0 TO DEVICE CODE ENTRY ROUTINE | 
350 001046 032777 000002 177624 STI: BIT —s #2, @SWR P 4 
351 001054 001402 BEQ ST2 s1F SR1=1 j 
332 001056 004767 000140 JSR PC, INIT [G0 DO LOGIC TESTS i 

( 
354 001062 032777 000001 177610 S12: BIT #1, aSWR ie 
355 001070 001402 BEQ $18 :1F SRO=1 Pi 
$39 001072 004767 003266 JSR PC,PASS1 :G0 DO CARD TESTS j 

( 
358 001076 104400 S13: TYPE , 
359 001100 017722 ENDMSG 3"END OF TESTING’ ( 
360 001102 000000 XX 7HALT AT END i 
361 001104 000137 001046 JMP aast1 
362 ;SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS ( 
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P11 20-MAY-80 08:54 SEQ 0011 
;EQUAL TO A ‘‘=1"', SETUP FOR A SOFTWARE SWITCH REGISTER. 
001110 01 by 000004 SWRCK: MOV @#ERRVEC,-(SP) ;SAVE ERROR VECTOR 
001114 012737 001150 000004 MOV ART1,QM#ERRVEC ;SET UP ERROR VECTOR 
ol S 012767 177570 177550 MOV #DSWR,SWR ;SET UP FOR HARDWARE SwR 
001130 012767 177570 177544 MC MDDISP, DISPLAY ;AND A HARDWARE DISPLAY REGISTER 
001136 022777 177777 177534 CMP #-1,aSWR 7 TRY TO REFERENCE HARDWARE SwR 
001144 001012 BNE RT3 ;BRANCH IF NO TIME OUT TRAP OCCURED 
;AND THE HARDWARE SWR IS NOT = -1 
001146 000403 BR RT2 ;BRANCH IF NO T 
001150 012716 001156 RT1: MOV #RT2, (SP) ;SET UP FOR TRAP RETURN 
001154 000002 RTl 
001156 012767 000176 177514 RT2: MOV ASWREG,SWR ;POINT TO SOFTWARE SwR 
001164 012767 000174 177510 MOV ADISPREG, DISPLAY 
001172 012637 000004 RT3: MOV (SP)+,@#ERRVEC sRESTORE ERROR VECTOR 
001176 005067 177502 CLR APASS ;CLEAR PASS COUNT 
001202 132767 000200 177476 B1TB #200,AENVM sTEST USER SIZE UNDER APT 
001210 001403 BEQ - RT4 ;YES,USE NON-APT SWITCH 
001212 012767 000710 177460 5 MOV #ASWREG, SWR 3NO,USE APT SWITCH REGISTER 
001220 000207 — RT4: RTS PC 
33 REGISTERS SHOULD EQUAL ZERO AT INITIALIZATION 

001222 104400 INIT: TYPE 
001224 015441 LOGTST j''eeeee LOGIC TESTS eeeee'' 
001226 104400 TYPE 
001230 015475 INITM1 :"'PUT THE 8035-8045 OFF-LINE, REMOVE ALL 
001232 104400 TYPE 
001234 017274 P2MSG4 ;PRESS STOP RESET ON 8035-8045 
001236 004767 010750 JSR PC,CONTIN ;‘'PRESS CR TO CONTINUE” 
001242 000005 INIT1: RESET 
001244 CKTCR #0,INIT1 ;TEST CMD REG FOR 0 

001244 LPz, 
001244 012767 000000 017574 MOV #0,G00D 
001252 017767 017622 017556 MOV aTCR,BAD ;READ CMD REGISTER 
001260 026767 017562 017550 CMP GOOD ,BAD 
001266 001401 BEQ +4 
001270 104003 ERR+GB 7CMD REG - VALUE READ NOT EQUAL TO EXPEC 
001272 LOOP INIT1 
001312 000137 001242 JMP a4 INITI 
001316 CKTSR #0,INITI : TEST STATUS REG FOR 0 

001316 LP=. 
001316 012767 000000 017522 MOV #0,G00D 
001324 017767 017554 017504 MOV aTSR,BAD ;READ STATUS REGISTER 
001332 026767 017510 017476 CMP GOOD ,BAD 
001340 001401 BEQ +4 
001342 104003 ERR+GB ;STATUS REG - VALUE READ NOT EQUAL TO EX 
001344 LOOP INIT1 
001364 000137 001242 JMP aa INITI 
001370 CKTIR #0,INIT1 ;TEST INTERRUPT REG FOR 0 

001370 LP=. 
001370 012767 000000 017450 MOV #0,G00D 
001376 017767 017512 017432 MOV aTIR,BAD ;READ INTERRUPT REGISTER 
001404 026767 017436 017424 CMP GOOD ,BAD 
001412 001401 BEQ +4 
001414 104003 ERR+GB : INTERRUPT REG = VALUE READ NOT EQUAL 10 
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20-May-80 08:5 
000137 001242 
000137 001446 
012702 001632 
012267 017372 
016777 017366 
001464 
016767 017360 
017767 017402 
0267457? 017342 
001401 
104003 
01 001456 
020227 001664 
001343 
012777 074136 
000005 
001554 
012767 000000 
017767 017312 
026767 017252 
001401 
104003 
000137 001544 
000137 001664 
000000 
0000 
020000 
100: 
004000 
000100 
0620 
000010 
000004 
000002 
000000 
074136 
000 
104400 
015653 
004767 010316 
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TIEND: 0 


:TEST THAT DONE 


TEST2: TYPE 
T2MSG1 


JSR 
; DONE SHOULD BE 


SEQ 0012 
Loop =—SsINIT} 
JMP avINITI 
JMP aaTEsTi 
TLOAD-READ TEST OF COMMAND REGISTER 
TESTI: MOV ATILST,R2 
TIA: MOV (R2)+,HOLD 
T1B: MOV HOLD ,aTCR ;LOAD CMD REGISTER 
CKTCR HOLD,11B ‘TEST CMD REG FOR CORRECT VALUE 
MOV. —« HOLD, GOOD 
MOV aTCR,BAD ;READ CMD REGISTER 
CMP GOOD ,BAD 
BEQ +4 
ERR+GB :CMD REG - VALUE RCAD NOT EQUAL TO EXPEC 
LooP.Ss«éT‘12B 
JMP aaTiB 
CMP R2,MT1END+2 
BNE TIA 
:NOW SEE IF RESET CLEARS ALL BITS THAT CAN BE SET IN THE COMMAND REGISTE 
TIC: HOV #74136, aTCR ;LOAD COMMAND REG WITH ALL BITS 
CKTCR #0,TIC :TEST CMD REG FOR 0 
LP=. 
MOV #0,G00D 
MOV aTCR,BAD :READ CMD REGISTER 
CHP GOOD .BAD 
ERR+GB :CMD REG - VALUE READ NOT EQUAL TO EXPEC 
LooP.—s«‘TIC 
JMP aaTiC 
JMP aATEST2 
TULST: 8 
40000 
20000 
10000 
4000 
100 
20 
10 
4 
2 
0 
74136 


BIT 1S ONLY BIT SET IN 3 REGISTERS 


out 8035-8045 ps INE AND PRESS START 
PC, CONTIN :PRESS CR TO CONTINUE’ 
THE ONLY BIT SET” IN 5 REGISTERS 


VUusttt tutti OF 


e 
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P11 20-MAY-80 08:54 SEQ 0013 
001674 CKTCR #200,LP 3 TEST CMD REG FOR DONE FLAG 
001674 LP=, 
001674 012767 000200 017144 MOV seen’ GOOD 
001702 017767 017172 017126 MOV aTCR,BAD ;READ CMD REGISTER 
001710 026767 017132 017120 CMP = * BAD 
001716 001401 BEQ 
001720 104003 ERR+GB 3CMD REG = VALUE READ NOT EQUAL TO EXPcC 
001722 LOOP LP 
001742 000137 001674 JMP aaLP , 
001746 CKTSR #0,LP ;TEST STATUS REG FOR 0 
001746 LP=, 
001746 012767 000000 017072 MOV #0,G00D 
001754 017767 017124 017054 MOV aTSR,BAD ;READ STATUS REGISTER 
001762 025767 017060 017046 CMP "he BAD 
YOi770 001401 BEQ 
001772 104003 ERR+GB ;STATUS REG = VALUE READ NOT EQUAL TO EX 
001774 LOOP LP 
002014 000137 001746 JMP aALP 
002020 CKTIR #0,LP ;TEST INTERRUPT REG FOR 0 
002020 LPz, 
002020 012767 000000 017020 MOV #0,G00D 
002026 017767 017062 017002 MOV aTIR,BAD ;READ INTERRUPT REGISTER 
002034 026767 017006 016774 CMP GOOD ,BAD 
002042 001401 BEQ +4 
002044 104003 ERR+GB ; INTERRUPT REG - VALUE READ NOT EQUAL TO 
002046 LOOP LP 
002066 000137 002020 JMP aALP 
002072 000137 002076 JMP aATEST3 
;TEST THAT DONE BIT CAUSES INTERRUPT TO CORRECT ADDRESS AND BR LEVEL 
002076 012767 000340 175672 TEST3: MOV #340,PS 
2104 012767 000007 016744 MOV #7,LEVEL 
002112 012777 002204 017000 MOV #T3INT, aPCv s;SETUP PC VECTOR 
002120 012777 000340 016774 MOV #340, aPSV ;SETUP PS VECTOR 
;SHOULD GET AN INTERRUPT WHEN BPU IS SET TO ONE LEVEL BELOW BR LEVEL FOR 
002126 012777 000100 016744 MOV #100,aTCR sENABLE INTERRUPT IN CMD REG 
0021 162767 000040 175634 T3A: SUB #40,PS ;DROP BPU LEVEL BY 1 
002142 000240 NOP ' 
002144 000240 NOP 
002146 005367 016704 DEC LEVEL s1F LEVEL 18:0 On HIGHER 
002152 100370 BPL T3A :GO WAIT FOR IN 
002154 104000 ERR 3;GOT NO INTERRUPT WITH BPU AT LEVEL 0 
002156 LOOP TEST3 
002176 000137 002076 JMP @ATEST3 
002202 000427 BR 138 
;GOT INTERRUPT, NOW TEST TO SEE THAT IT OCCURRED AT CORRECT LEVEL 
0627 000004 T3INT: ADD #4,SP ;HOUSE KEEPING OF STACK 
002210 016767 016710 016630 MOV BRLV,GOOD ;GOOD=BR LEVEL OF DEVICE 
002216 016767 016634 016612 MOV LEVEL,BAD *BAD=LEVEL AT WHICH INTERRUPT OCCURRED 
002224 026767 016616 016604 CMP GOOD ,BAD 
002232 001401 BEQ +4 
002234 104003 ERR+GB ; INTERRUPT OCCURRED AT WRONG LEVEL 
002236 LOOP TEST3 
002256 000137 002076 JMP asTEST3 





476 . 
002476 012767 000200 016342 MOV #200,G00D 
002504 017767 016370 016324 MOV aTCR,BAD ;READ CMD REGISTER 
002512 026767 016330 016316 


B 2 
=, MACY) ZOAct0 2) 20=MAY-80 09:53 PAGE 3-12 
| C2CTBA.P11 20-MAY=80 08:54 ; SEQ 0014 
/ = 665 poeeee 000005 T3B: RESET ;CLEAR OUT CMD REG WITH RESET 
| 466 002264 CKTCR #200,138 ;TEST CMD REG FOR DONE 
| 1) 00 Oe LP=, 
1) 2264 012767 000200 016554 MOV #200,G00D 
(1) 002272 017767 016602 016536 , MOV aTCR,BAD ;READ CMD REGISTER 
(1) 2300 026767 016542 016530 CMP GOOD ,BAD 
(1) 2306 001401 BEQ 244 
| (1) 002310 104003 ERR+GB . CMD REG = VALUE READ NOT EQUAL TO EXPEC 
(1) 002312 LOOP 738 
| “<} 002332 000137 002262 JMP a#T3B8 ‘ 
4 002336 000137 002342 JMP aATESTS 
470 ;TEST THAT HOPPER EMPTY CAN BE DETECTED WHEN HOPPERS ARE SELECTED, THAT 
471 ;HOPPER EMPTY BEING SET CAUSES INPUT ERROR TO SET AND THIS IN TURN CAUSE 
| ote ERROR BIT TO SET IN THE CMD REG. TEST THAT ERROR BIT CAUSES AN INTERRUP 
| 474 “TEST FOR PRIMARY HOPPER EMPTY 
475 002342 112777 000040 016532 TEST4: MOVB #40, aTCRHI SELECT PRIMARY HOPPER a! 
| = &76-—-:002350 CKTSR #220, TESTS ‘TEST FOR IE + HE 
() 002350 LP=, 
(1) 002350 012767 000220 016470 MOV #220,G00D 
1) 902356 017767 016522 016452 MOV aTSR,BAD ;READ STATUS REGISTER 
1) 002364 026767 016456 016444 ~ CMP GOOD ,BAD 
| 1) 002372 001401 BEQ +4 
1) 002374 104003 ERR+GB ;STATUS REG = VALUE READ NOT EQUAL TO EX 
1) 002376 LOOP TESTS 
2) 002416 000137 002342 JMP OATESTS 
4 002422 seat CKTCR #120200,TEST4  ;TEST FOR ERR + HSO + DONE 
1) 002422 012767 120200 016416 MOV #120200,G00D 
1) 002430 017767 016444 016400 MOV aTCR,BAD ;READ CMD REGISTER 
1) 002436 026767 016404 016372 CMP GOOD ,BAD 
1) 0024464 001401 BEQ +4 
1) 002446 104003 ERR+GB ;CMD REG - VALUE READ NOT EQUAL TO EXPEC 
1) 002450 LOOP TESTS 
2) 002470 000137 002342 JMP QATESTS 
78 ;TEST THAT RESET WILL CLEAR OUT CMD REG 
79 002474 000005 TOA: RESET CLEAR OUT CMD REG WITH RESET 
80 002476 CKTCR #200,T4A . ;TEST CMD REG FOR DONE 
| 002520 001401 BEQ .+ 
002522 104003 ERR+GB CMD REG - VALUE READ NOT EQUAL TO EXPEC 
002524 _ LOOP =—s«sT4A 
002544 000137 002474 


JMP OATSA 
; TEST FOR SECONDARY HOPPER EMPTY 
MOVB #100,aTCRHI 
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| 002550 112777 000100 016324 T4B: >SELECT SECONDARY HOPPER 
002556 002556 (hae #220,14B ;TEST FOR IE + HE 
002556 012767 000220 016262 MOV #220,G00D 
002564 017767 016314 016244 MOV aTSR,BAD ;READ STATUS REGISTER 
002572 026767 016250 016236 CMP GOOD ,BAD 
002600 001401 BEQ +4 
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P11 20-MAY=80 08:54 SEQ 0015 
002602 104003 ERR+GB sSTATUS REG = VALUE READ NOT EQUAL TO EX 
002604 LOOP T4B 
poses 000137 002550 JMP aaT4B 
002630 0026 hg #140200,T4B :TEST FOR ERR + HS1 + DONE 
002630 012767 140200 016210 MOV #140200,G00D 
002636 017767 016236 016172 MOV aTCR,BAD sREAD CMD REGISTER 
0026464 026767 016176 016164 CMP GOOD ,BAD 
002652 001401 BEQ +4 
002654 104003 ERR+GB :CMD REG = VALUE READ NOT EQUAL TO EXPEC 
002656 LOOP T4B 
002676 000137 002550 


JMP a*T4B 
;TEST THAT ERROR BIT IN CMD REG CAUSES AN INT 
MOVS 100,aTCR 


002702 112777 000100 016170 . ENABLE INT 
002710 012777 002774 016202 MOV ATGINT, APCV ;SETUP PC VECTOR 
002716 012777 000340 016176 MOV #340,aPSV ;SETUP PS VECTOR 
2724 012767 000040 175044 T4C: MOV #40,PS ;SET BPU TO LEVEL #1 
002732 000240 NOP 
002734 000240 NOP 
002736 012767 000340 175032 MOV #340,PS ;SET BPU TO LEVEL #7 
002744 104000 ERR ;WITH ERROR BIT SET IN CMD REG INT DIDN' 
002746 LOOP T4C 
002766 000137 002724 JMP aAT4C 
002772 000402 BR T4D 
002774 062706 000004 *  -T4INT: ADD #4,SP sHOUSE KEEPING ON STACK 
T4D: CKTCR #140300,T4D ; TEST FOR ERR + HS1 + IE + DONE 
003000 LP=. 
003000 012767 140300 016040 MOV #140300,G00D 
017767 016066 016022 MOV aTCR,BAD READ CMD REGISTER 
14 026767 016026 016014 CMP GOOD ,BAD 
003022 001401 BEQ 24h 
003024 104003 : ERR+GB ;CMD REG - VALUE READ NOT EQUAL TO EXPEC 
003026 LOOP T4D 
003046 000137 003000 JMP aAT4D 
; TEST THAT WRITING A 1 TO ERROR BIT CLEAR WILL CLEAR IT 
003052 012777 000400 016020 T4E: MOV #400,aTCR ;CLEAR ERROR BIT BY WRITING A 1 TO IT 
003060 CKTCR #200,T4E TEST CMD REG FOR DONE 
003060 LP=, 
003060 012767 600200 015760 MOV #200,G00D 
003066 017767 016006 015742 MOV aTCR,BAD READ CMD REGISTER 
003074 026767 015746 015734 CMP GOOD ,BAD 
003102 001401 BEQ +4 
003104 104003 ERR+GB :CMD REG - VALUE READ NOT EQUAL TO EXPEC 
003106 LOOP T4E 
003126 000137 003052 JMP OATSE 
003132 CKTSR #0,T4E TEST STATUS REG FOR 0 
003132 LP=. 
003132 012767 000000 015706 MOV #0,G00D 
003140 017767 015740 015670 MOV aTSR,BAD READ STATUS REGISTER 
003146 026767 015674 015662 CMP GOOD ,BAD 
003154 001401 BEQ +4 
003156 104003 ERR+GB STATUS REG - VALUE READ NOT EQUAL I0 EX 
003160 LOOP T4E 
200 000137 00352 JMP OAT4E 
003206 000137 003210 JMP aA#TESTS 
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P11. 20-MAY=80 08:54 SEQ 0016 cz¢ 
; TEST FOR PROPER STACKER FULL DETECTION FROM BOTH STACKERS INDIVIDUALLY 
; AND THEN IN STACKER OVERFLOW MODE 
>TEST FOR STACKER #1 FULL 
003210 104400 TESTS: TYPE 
003212 015744 TSM] :PUT 8035-8045 OFF-LINE" 
003214 004767 006772 JSR PC,CONTIN :''PRESS CR TU CONTINUE" 
003220 000005 RESET 
003¢2 112777 000010 015652 MOVB =: #10, aTCRHI ;SELECT STACKER #1 
0032 104400 TYPE 
003232 015653 T2MSG1 7''PUT 8035-8045 ON-LINE AND PRESS START 
003234 004767 006752 JSR PC,CONTIN ;''PRESS CR TO CONTINUE" 
003240 104400 TYPE 
003242 016075 TSMSG1 :""PULL CARD PLATE OF STACKER #1 BACK TO 
003244 104400 TYPE 
003246 016164 TSMSG2 sWILL SIMULATE STACKER FULL AND HOLD IT 
003250 104400 TYPE 
003252 016234 TSMSG3 s''"PROGRAM WILL WAIT FOR STACKER FULL FLA 
003254 132777 000020 015624 TSA: BITB  #20,aTSRHI 
003262 001774 BEQ TSA ;WAIT FOR STACKER FULL FLAG 
003264 003266 — #110000,T5A ;TES] FOR OE + SF 
A s | 


003264 110000 015554 MOV. #110000, Go00D 
003272 017767 015606 015536 MOV aTSR,BAD sREAD STATUS REGISTER 
015542 015530 CMP GOOD BAD 
_? 


001401 BEQ 
003310 104003 ERR+GB ;STATUS REG = VALUE READ NOT EQUAL TO EX } 
003312 LOOP TSA 
003332 000137 003254 JMP aNTSA | 

CKTCR #104000,LP ; TEST FOR ERR + SSO + DONE 

003336 LP=, | 
003336 012767 104000. 015502 MOV #104000, GOOD 
003344 017767 015530 015464 May aTCR,BAD :READ CMD REGISTER 
003352 026767 015470 015456 CMP GOOD , BAD 
003360 001401 BEQ ay) 
003362 104003 ERR+GB ;CMD REG - VALUE READ NOT EQUAL TO EXPEC 
003364 LOOP Le | 
003404 000137 003336 JMP aap | 
003410 104400 TYPE 
003412 017210 P2MSG$ 3'' PRESS STOP-RESET AND PRESS START ON T 
003414 132777 000020 015464 15B:  BITB #20,aTSRHI 
003422 001374 BNE T5B s;WAIT FOR STACKER FULL TO GO AWAY ; 
003424 CKTSR #0,15B ; TEST STATUS REG FOR 0 

003424 LP=, 
003424 012767 000000 015414 MoV #0,G00D 
003432 017767 015446 015376 MOV aTSR,BAD ;READ STATUS REGISTER 
003440 026767 015402 015370 


CMP GOOD ,BAD 
eG 
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003446 001401 BEQ ‘ 
003450 104003 ERR+GB ;STATUS REG - VALUE READ NOT EQUAL TO EX 
003452 LOOP T5B 
003472 000137 003414 JMP a415B 
003476 CKTCR #104000,LP ; TEST FOR ERR * SSO 
003476 LP=, 
003476 012767 104000 015342 MOV #104000, G00D 
003506 017767 015370 015324 MOV aTCR,BAD READ CMD REGISTER 
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015316 


015324 


015116 


015102 


TSC: 


T5D: 


T5E: 


CMP 
B 


SEQ 0017 


GOOD ,BAD 
+4 


Lp ;CMD REG = VALUE SEAD NOT EQUAL TO EXPEC 


JMP aaLP 
TEST FOR STACKER #2 FULL 


MOVB 
TYPE 
TSMSG5 
TY 


#31, aTCRHI SELECT STACKER #2 + CLEAR ERR 
;'PULL CARD PLATE OF STACKER #2 BACK TO 
WILL SIMULATE STACKER FULL AND HOLD IT 
"PROGRAM WILL WAIT FOR STACKER FULL FLA 


#20,aTSRHI 

TSC s;WAIT FOR STACKER FULL FLAG 

#110000,T5C ;TEST FOR OE + SF 

#110000,S500D 

aTSR,BAD sREAD STATUS REGISTER 

os 

+ 

1s¢ ;STAIUS REG = VALUE READ NOT EQUAL TO EX 
aaTSc 

;''PRESS STOP-RESET AND PRESS START ON THE 8035-8 

#20,aTSRHI 

T5D sWAIT FOR STACKER FULL TO GO AWAY 

#0,T5D ;TEST STATUS REG FOR 0 

#0,G00D 
aTSR,BAD ;READ STATUS REGISTER 

may ate 

+ 

15D ;STATUS REG - VALUE READ NOT EQUAL TO EX 


JMP aAvT5D 
gree" FOR STACKER FULi IN STACKER OVERFLOW MODE 


TSM2 


TYPE 
T5MSG5 


7""PRESS START ON THE 8035-8045"’ 
PC,CONTIN ;"'PRESS CR TO CONTINUE 

;CLEAR OUT CMD REG 
#1,aTCR ;SET STACKER OVERFLOW MODE + GO 


:PULL CARD PLATE OF STACKER #1 BACK TO 
:WILL SIMULATE STACKER FULL AND RELEASE” 
PC, CONTIN ‘PRESS CR TO CONTINUE’ 
#20, a1SRHI 
.+ 


STACKER FULL FLAG SET WITH ONLY STACKER 
FULL WHEN IN OVERFLOW MODE 


T5E 
aaTse 
;‘*PULL CARD PLATE OF STACKER #2 BACK 10 
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CZCTBA.P11 20-MAY-80 08:5 SEQ 0018 czctT 
567 004040 10440 TYPE ( 
568 004042 016164 TSMSG2 sWILL SIMULATE STACKER FULL AND HOLD IT ( 
569 004044 104400 TYP , ( 
570 004046 Oiges TSMSG3 ;"'PROGRAM WILL WAIT FOR STACKER FULL FLA ( 
571 0046050 132777 000020 015030 TSF: BITB £20, aTSRHI 8 
are 004056 001774 BEG TSF sWAIT FOR STACKER FULL FLAG ( 
573 004060 CKTSR #110000,TSF TEST FOR OE + SF ( 
1) 004060 LP=, ( 
(1) 006060 012767 110000 014760 MOV #110000,G00D ( 
(1) 006066 017767 015012 014742 MOV aTSR,BAD READ STATUS REGISTER ( 
(1) 006074 026767 014746 014734 CMP GOOD ,BAD ( 
(1) 004102 001401 BEQ 44 ( 
(1) 004104 104003 ERR+GB STATUS REG = VALUE READ NOT EQUAL TO EX ( 
(1) 0046106 LOOP TSF 8 
(2) 004126 000137 004050 JMP aaTsr 8 
574 004132 CKTCR #100000,LP ;TEST FOR ERR 3 
1) 004132 LP=. 8 
(1) 004132 012767 100000 014706 MOV #100000,G00D 8 
(1) 006140 017767 014734 014670 MOV aTCR,BAD ;READ CMD REGISTER ( 
(1) 004146 026767 014674 014662 CMP GOOD ,BAD ( 
(1) 004154 001401 BEQ +4 8 
(1) 004156 104003 ERR+GB 3CMD REG - VALUE READ NOT EQUAL 10 EXPEC w 
(1) 004160 LOOP LP r 
(2) 004200 000137 004132 JMP aALP 8 
575 004204 104400 8 
576 004206 016472 TSMSG7 :‘"RELEASE BOTH CARD PLATES AND PRESS STA 8 
577 004210 004767 005776 JSR PC, CONTIN :"'PRESS CR 10 CONTINUE’ ( 
ers 004214 000005 RESET 
a0 004216 000137 004222 JMP OA TESTS g 
24) ;FORCE INPUT CHECK ERROR BY TRYING TO FEED A CARD FROM AN EMPTY HOPPER ( 

: ( 
584 004222 000005 TEST6: RESET 8% 
585 004224 104400 TYPE - ( 
586 004226 016531 T6OMSG1 7"’PRESS START ON THE 8035-8045 ( 
587 004230 004767 005756 JSR PC,CONTIN :‘'PRESS CR TO CONTINUE” ( 
588 004234 012777 020001 014636 MOV #20001, aTCR 7 ]1SSUE GO COMMAND TO PRIMARY HOPPER ( 
589 004242 005067 014574 CLR CNT ( 
590 004246 162767 000001 014566 SUB #1,CNT ( 
591 004254 001374 BNE .76 ( 
592 004256 162767 000001 014556 SUB #1,CNT ( 
593 004264 001374 BNE .76 ;DELAY 1 SECOND 8 
594 004266 162767 000001 014546 SUB #1,CNT ( 
595 004274 001374 BNE 7 ( 
596 004276 162767 000001 014536 SUB #1,CNT ( 
597 0043 001374 BNE 7 ;DELAY 1 SECOND ( 
598 004306 CKTSR #320,LP ;TEST FOR JE + IC * HE ( 
(1) 004 306 LP=. ( 
(1) 004306 012767 000320 014532 MOV #320,G00D ( 
(1) 006314 017767 014564 014514 MOV aTSR,BAD ;READ STATUS REGISTER ( 
(1) 004322 026767 014520 014506 CMP GOOD ,BAD 8 
(1) 004330 001401 BEQ +4 8 
(1) 004332 104003 ERR+GB sSTATUS REG = VALUE READ NOT EQUAL TO EX 8 
(1) 0046334 LOOP LP ( 
(2) 0064354 000137 004306 JMP aap ( 
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005610 
007550 


000010 


005560 


004200 
014434 
014374 


004432 
024001 


024000 
014354 
014314 


004512 
014252 
000001 


000001 


004011 
014262 
014216 


014464 


014366 


014326 
014310 
014302 


014244 
014234 


SEQ 0019 
RESET 
RTS PC sEXIT LOGIC TEST 


+ THIS 1e81 FEEDS 20 BLANK CARDS, 10 FROM EACH HOPPER, INTO THE STACKERS 


oe 


:DONE + 


:SEE IF 


(10 INTO EACH STACKER). THE CARDS ARE TESTED FOR ALL SPACES AND 
aa intent TO INSURE THAT THE INPUT DATA REQUEST CAN CAUSE 
UPT 


RESET 
TYPE 
— j''weeee CARD TESTS ween’ 

YPE 
PIMSG1 "REMOVE ALL CARDS AND PUT THE 8035-8045 
JSR PC,CONTIN “PRESS CR TO CONTINUE" 

JSR PC,CKSWR 

RESET 
Tree #10,aTCRHI ;SELECT STACKER #1 

Y 
BI ae ;'PUT 10 BLANK CARDS IN EACH INPUT HOPPE 

Y 
P1MSG3 :''PU1 8035-8045 ON-LINE AND PRESS 

;, START ON THE 8035-8045"' 

JSR PC,CONTIN “PRESS CR TO CONTINUE’ 

$80 SHOULD BE THE ONLY BITS SET IN THE CMD REG 

e. CR #4200,LP ;TEST FOR SSO + DONE FLAG 
LP=. 
MOV #4200,G00D 
MOV aTcR, BAD ;READ CMD REGISTER 
CMP GOOD ,BAD 
BEQ +4 
ERR+GB :CMD REG = VALLE READ NOT EQUAL TO EXPEC 
LOOP a 
JMP aAL 
ISSUING GO" CLEARS THE DONE FLAG (READ 15ST — 
MOV #24001,aTCR 7 ISSUE HSO + SSO + 
— #24000, LP ; TEST FOR HSO + sso” 
L =. 
MOV #24000,G00D 
MOV aTCR,BAD ;READ CMD REGISTER 
CMP GOOD ,BAD 
BEQ +4 
ERR+GB ;CMD REG - VALUE READ NOT EQUAL TO EXPEC 
LOOP LP 
JMP aALP 
CLR CNT 
SUB #1,CNT 
BNE -76 
SUB #1,CNT 
BNE -76 ;DELAY 1 SECOND 
Mg #4011,LP ;TEST FOR Clw + ROR 
LP=. ‘ 
MOV #4011,G00D 
MOV aTSR,BAD ;READ STATUS REGISTER 
CMP GOOD ,BAD 
BEQ .*4 
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SEQ 0020 
(1) 006634 104003 ERR+GB ;STATUS REG = VALUE READ NOT EQUAL TO Ex 
(1) 0046636 LOOP. =—suLP 
(2) 006656 000137 004610 JMP aaLP 
634 004662 CKTIR #200,LP ; TEST FOR IDR 
a) 004662 LPs, 
(1) 006662 012767 000200 014156 MOV #200,G00D 
(1) 006670 017767 014220 014140 MOV aTIR.BAD ;READ INTERRUPT REGISTER 
(1) 006676 026767 014144 014132 CMP GOOD ,BAD 
(1) 006704 001401 BEQ 146 
(1) 004706 104003 f ERR+GB ; INTERRUPT REG = VALUE READ NOT EQUAL TO 
(1) 004710 LOOP LP 
(2) 004730 000137 004662 JMP aaLP 
635 7SEE IF INPUT DATA REQUEST WILL CAUSE AN INTERRUPT 
636 006734 112777 000100 014136 MOVB #100,aTCR sENABLE INT 
637 004742 012777 005026 014150 MOV #PLINT, aPCy :SETUP PC VECTOR 
638 004750 012777 000340 014144 MOV #340,aPSV ‘SETUP PS VECTOR 
639 004756 012767 000040 173012 PIA: MOV #40,PS ;SET BPU TO LEVEL #1 
640 004764 000240 NOP 
641 004766 000240 NOP 
642 004770 012767 000340 173000 MOV #340,PS ;SET BPU TO LEVEL #7 
643 004776 104000 ERR ; INPUT DATA REQUEST DIDN'T CAUSE AN INTE 
644 005000 LOOP =-~wPIA 
(1) 005020 000137 004756 JMP aAPIA 
645 005024 000402 BR PIB 
646 005026 062706 000004 PIINT: ADD a4 ,SP ;HOUSE KEEPING ON STACK 
647 005032 004767 005204 P1B: JSR PC,BLKCRD ; TEST FOR BLANK CARD 
648 005036 CKTSR #4010,LP sTEST FOR ClwW 
(1) 005036 LP=. 
(1) 005036 012767 004010 014002 MOV #4010,G00D 
(1) 4 017767 014034 013764 MOV aTSR,BAD ;READ STATUS REGISTER 
(1) 005052 026767 013770 013756 CMP GOOD ,BAD 
(1) 060 001401 BEQ 144 
(1) 005062 104003 : ERR+GB ;STATUS REG = VALUE READ NOT EQUAL TO EX 
(1) 005064 LOOP LP 
(2) 005106 000137 005036 JMP aaLP 
649 005110 CKTER #24300,LP ;TEST FOR HSO + SSO * DONE * INT EN 
(1) 005110 LP=, 
(1) 005110 012767 024300 013730 MOV #24300,G00D 
(1) 005116 017767 013756 013712 MOV aTCR,BAD ;READ CMD REGISTER 
(1) 005124 026767 013716 013704 CMP GOOD ,BAD 
(1) 005132 001401 BEQ 44 
(1) 005134 104003 ERR+GB ;CMD REG - VALUE READ NOT EQUAL TO EXPEC 
(1) 005136 LOOP LP 
(2) -005156 000137 005110 JMP aaLP ‘ 
650 ;READ CARDS #2-9 FROM PRIMARY HOPPER 
651 005162 012767 000010 013654 MOV #10,CNT1 
652 005170 012777 024001 013702 PID: MOV #24001,aTCR :1SSUE HSO + SSO * GO 
653 005176 WTIDR 
(1) 005176 032777 000200 013710 BIT #200, aTIR 
(1) 005204 001774 BEQ 76 ;WAIT FOR INPUT DATA REQUEST 
654 005206 CKTSR #4011,LP ;TEST FOR ClW + RDR 
(1) 005206 LP=, 
(1) 005206 012767 004011 013632 MOV #4011,G00D 
(1) 005214 017767 013664 013614 MOV aTSR,BAD ;READ STATUS REGISTER 
(1) 005222 026767 013620 013606 CMP GOOD , BAD 
(1) 005230 001401 BEQ +4 
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ab) 005232 104003 ERR+GB ;STATLS REG = VALUE READ NOT EQUAL TO Ex 9 
1) 005 LOOP =—suLP 9 
(2) 005254 000137 005206 JMP aaLP 9 
655 005260 004767 004756 JSR PC ,BLKCRD :TEST FOR BLANK 9 
656 005264 CKTCR #24200,LP ‘TEST FOR HSO + €$0° + DONE 9 
SB) 005264 LP=, 9 
(1) 005264 012767 024200 013554 MOV #24200,G00D 9 
a) 005272 017767 013602 013536 MOV aTCR,BAD :READ CMD REGISTER 9 
(1) 005300 026767 013542 013530 CMP wr BAD 9 
(1) 005306 001401 BEQ ‘ 9 
(1) 005310 104003 ERR+GB :CMD REG = VALUE READ NOT EQUAL TO EXPEC 9 
(1) 005312 LOOP =siuLP 9 
(2) 005332 000137 005264 JMP aaLP 9 
657 005336 005367 013502 DEC CNT1 9 
658 005342 001312 BNE P1D 9 
659 >READ CARD #10 OUT OF PRIMARY HOPPER 9 
660 005344 012777 024001 013526 MOV #24001, aTCR sISSUE HSO + SSO + GO 9 
661 005352 WTIDR 9 
(1) 005352 032777 000200 013534 BIT #200, aTIR 9 
(1) 005360 001774 BEQ ;WAIT FOR INPUT DATA REQUEST 9 
662 005362 004767 004654 JSR Pc sBuxcno [TEST FOR BLANK CARD 9 
663 005366 CKTSR #4230 :TES1 FOR ClW + IE + HE 9 
(1) 005366 LP=. 9 
(1) 005366 012767 004230 013452 MOV #4230, G00D 9 
(1) 005374 017767 013504 013434 MOV aTSR,BAD :READ STATUS REGISTER 9 
(1) 005602 026767 013440 013426 CMP GOOD , BAD 9 
(1) 005410 001401 BEQ +6 et) 
(1) 005412 104003 ERR+GB ;STATUS REG - VALUE READ NOT EQUAL TO EX | 640 
(1) 005414 LOOP LP OA 
(2) 005434 000137 005366 JMP aaLP 10 
664 005440 CKTCR  #124200,LP :TEST FOR ERR + HSO + SSO + DONE 10 
1) 005440 LP=, 
(1) 005440 012767 124200 013400 MOV #124200, G00D 
(1) 005446 017767 013426 013362 MOV aTCR,BAD :READ CMD REGISTER 
(1) 005454 026767 013366 013354 CMP GOOD , BAD 
(1) 005462 001401 BEQ 44 
(1) 005464 104003 ERR+GB :CMD REG - VALUE READ NOT EQUAL TO EXPEC 
(1) 005466 a9 a 
(2) 005506 000137 005440 aaL 
665 TREAD CARD ar OUT OF SECONDARY HOPPER 
666 005512 012777 044401 013360 MOV #46401,aTCR :1SSUE CLEAR ERR + HSI + $SO + GO 
667 005520 WTIDR 
(1) 005520 032777 000200 013366 BIT #200,aTIR 
(1) 005526 001774 BEQ .-6 ;WAIT FOR INPUT DATA REQUEST 
668 005530 CKTSR #4011,LP [TEST FOR Clw + RDR 
(1) 005530 LP=, 
(1) 005530 012767 004011 013310 MOV #4011,G00D 2 
(1) 005536 017767 013342 013272 MOV aTSR, BAD ;READ STATUS REGISTER 
(1) 005544 026767 013276 013264 CMP GOOD , BAD 
(1) 005552 001401 BEQ +4 
(1) 005554 104003 ERR*+GB :STATUS REG = VALUE READ NOT EQUAL TO EX 
(1) 005556 LOOP. —s«&LP 
(2) 005576 000137 005530 JMP aaLP 
669 005602 004767 004434 JSR PC ,BLKCRD :TEST FOR BLANK CARD 
670 005606 CKTCR #44200,LP “TEST FOR HS1 * SSO + DONE 
(1) 005606 LP=, 
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005606 012767 04 
614 


~z 


SEQ 0022 ¢ 
MOV #44200,G00D 
aTCR,BAD 


: ;READ CMD REGISTER 
CMP —— 
+ 
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a) 5 10 
a) . 10 
(1) 005630 001401 BEQ 7 1¢ 
(1) 005632 104003 ‘ ERR+GB ;CMD REG = VALUE READ NOT EQUAL TO EXPEC 10 
41) 005634 LOOP LP 10 
(2) 005654 000137 005606 JMP aALP 10 
671 ;READ CARDS #12=19 AND PUT THEM IN STACKER #2 10 
672 005660 012767 000010 013156 MOV #10,CNT1 10 
673 005666 012777 054001 013204 PIE: MOV #54001, aTCR : ISSUE HS1 + $S1 + GO 1C 
674 005674 WTIDR 1C 
(1) 005674 032777 000200 013212 BIT #200,aTIR 10 
(1) 005702 001774 BEQ .-6 ;WAIT FOR INPUT DATA REQUEST 10 
675 005704 004767 004332 JSR PC,BLKCRD :TEST FOR BLANK CARD 1C 
676 005710 WTDONE 10 
(1) 005710 032777 000200 013162 BIT #200,aTCR 10 
(1) 005716 001774 BEQ - :WAIT FOR DONE FLAG 10 
677 005720 = CKTSR #4010,LP sTEST FOR ClW 19 

L =. 1 

(1) 005720 012767 004010 013120 MOV #4010,GO00D 10 
(1) 005726 017767 013152 013102 MOV aTSR,BAD ;READ STATUS REGISTER Bs 34 
(1) 005734 026767 013106 013074 CMP GOOD ,BAD | 10 
(1) 005742 001401 BEQ +4 $0 
(1) 005744 104003 ERR+GB :STATUS REG = VALUE READ NOT EQUAL TO EX i 10 
(1) 005746 LOOP LP 10 
(2) 66 000137 005720 JMP aaLP | 610 
678 005772 CKTCR #546200,LP :TEST FOR HS1 + SS1 + DONE i 10 
(1) 005772 LP=, 40 
(1) 005772 012767 054200 013046 MOV #54200,G00D a. : 10 
(1) 006000 017767 013074 013030 MOV aTCR,BAD ;READ CMD REGISTER | 10 
(1) 006006 026767 013034 013022 CMP GOOD , BAD | 610 
(1) 006014 001401 BEQ 44 | 10 
(1) 006016 104003 ERR+GB ;CMD REG - VALUE READ NOT EQUAL TO EXPEC | 10 
(1) 006020 LOOP LP | 10 
(2) 006040 000137 005772 JMP aaLP 10 
679 006044 005367 012774 DEC CNT1 10 
680 006050 001306 BNE PIE 10 
681 ;READ CARD #20 OUT OF SECONDARY HOPPER | 10 
682 006052 012777 050001 013020 MOV #50001,aTCR :ISSUE HS1 + $S1 + GO | 10 
683 006060 WTIDR ~ 10 
(1) 032777 000200 013026 BIT #200,aTIR Be. 
(1) 001774 BEQ .-6 :WAIT FOR INPUT DATA REQUEST cis ag 
684 006070 004767 004146 JSR PC ,BLKCRD :TEST FOR BLANK CARD | 10 
685 006074 CKTSR #4230,LP :TEST FOR Clw + JE + HE | 10 
LP=. | 10 

(1) 006074 012767 004230 012744 MOV #4230,G00D 10 
(1) 006102 017767 012776 012726 MOV aTSR,BAD ;READ STATUS REGISTER 10 
(1) 006110 026767 012732 012720 CMP GOOD ,BAD 10 
(1) 006116 001401 BEQ 44 10 
(1) 006120 104003 ERR+GB ZSTATUS REG - VALUE READ NOT EQUAL TO EX 10 
(1) 006122 LOOP LP 10 
(2) 006142 000137 006074 JMP aaLP 10 
686 006146 CKTCR #150200.LP :TEST FOR ERR + HS1 * SS1 * DONE 10 
(1) 006146 LP=. 10 
(1) 006146 012767 150200 012672 MOV #150200,G00D 10 
(1) 006154 017767 012720 012654 MOV aTCR,BAD :READ CMD REGISTER 10 
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026767 
001401 
104003 
000137 
012777 


032777 
001774 


012777 
032777 


032777 
001774 


006444 
012767 


012660 


006146 
010401 
000200 


000000 
012634 
012570 


006310 
006366 


003604 
003762 


020401 
000200 
003606 
000200 


004010 


012646 


012652 
012644 


012460 
012466 


012436 


012374 


CMP GOOD ,BAD 
BEQ +4 
ERR+GB 
ra ye - 

;PuT CARD “420 IN STACKER #2 

#10401,aTCR 

UTDONE 
aro #200,aTCR 
CKTSR #0,LP 
LP=. 
MOV #0,G00D 
MOV aTSR,BAD 
CMP GOOD ,BAD 
BEQ +4 
ERR+GB 
LOOP LP 
JMP aALP 
«hey #10200,LP 
LP=. 
MOV #10200,G00D 
MOV aTCR,BAD 
CMP GOOD ,BAD 
BEQ +4 
ERR+GB 
LOOP LP 
JMP OALP 
JMP @APASS2 


SEQ 0023 


:CMD REG = VALUE READ NOT EQUAL TO EXPEC 


; ISSUE CLEAR ERR + SS1 + GO 


WAIT FOR DUNE FLAG 
TEST FO 


R STATUS=0 


sREAD STATUS REGISTER 


STATUS REG - VALUE READ NOT EQUAL TO EX 


TEST FOR SS1 +DONE 


;READ CMD REGISTER 


;CMD REG - VALUE READ NOT EQUAL TO EXPEC 


+ THIS TEST PUNCHES THE ENTIRE CHAR SET ON EACH CARD IN A PRECESSED 


ON. THIS MEANS THE 1ST PUNCHED CHAR ON CARD #1 IS _IN 


COLUMN #11 AND THE 1ST PUNCHED CHAR OF CARD #20 IS IN COLUMN 
#31. ALSO TEST THAT OUTPUT DATA REQUEST CAN CAUSE AN INTERRUPT. 


ee TYPE 


PC,CONTIN 
PC, CLRBFS 


#20401, aTCR 
#200,aTIR 
PC BLKCRD 
#200,aTCR 
CKTSR 
#4010, GOOD 


#4010, Lp’ 


"VERIFY THAT THERE ARE 10 BLANK CARDS | 
;"PLACE ALL 20 CARDS IN THE PRIMARY HOPP 


7"'PRESS STOP-RESET AND PRESS START ON T 
3'PRESS CR TO CONT INUE*’ | 
PREPARE BUFFER FOR PUNCHING 


; ISSUE CLEAR ERR + HSO + GO 


WAIT FOR INPUT DATA REQUEST 
TEST FOR BLANK CARD 


WAIT FOR DONE FLAG 
TEST FOR ClW 


~s 
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-P1l : SEQ 0024 €2C) 
006452 017767 012426 012356 MOV aTSR,BAD :READ STATUS REGISTER 1 
006460 026767 012362 012350 CMP GOOD ,BAD 1" 
006466 001401 BEQ +4 1" 
006470 104003 ERR+GB sSTATUS REG = VALUE READ NOT EQUAL TO EX 1 
00642 LOOPS saLP ) 1 
006512 000137 006444 JMP aaLP 1 
006516 ae CKTCR #20200,LP : TEST FOR HSO + DONE 1 

:, . 

006516 012767 020200 012322 MOV #20200,G00D | 4 
006524 017767 012350 012304 MOV aTCR,BAD :READ CMD REGISTER | 4 
006532 026767 012310 012276 CMP GOOD , BAD eZ) 
006540 001401 BEQ voces | 4 
006542 104003 ERR+GB ~ :(MD REG = VALUE READ NOT EQUAL TO EXPEC | 4 
006544 LOOPS saLP _ at 
006564 000137 006516 JMP ALP . | 4 
:FEED CARDS #2-19, INHIBIT READ FOR THESE CARDS r+ 

006570 012767 020104 012270 MOV #BF1,PTR . | + 
006576 012767 000022 012240 MOV #22,CNT1 sCNT1=18 | 
006604 012777 020027 012266 P2A: MOV #20027,aTCR ‘ISSUE HSO + IR + PRI + PUN + GO | ¥ 
006612 132777 000200 012276 BITB #200, aTIRHI : 
006620 001774 BEQ - :WAI1] FOR OUTPUT DATA REQUEST 1 
006622 a ‘ CKTSR  #4410,LP : TEST FOR PUDR 1 
L =. 7 

006622 012767 004410 012216 MOV #4410,G00D 1 
006630 017767 012250 012200 : MOV aTSR,BAD :READ STATUS REGISTER 1 
006636 026767 0122046 012172 CMP GOOD, BAD 1 
006644 001401 BEQ +4 1 
006646 104003 ERR+GB :STATUS REG - VALUE READ NOT EQUAL TO EX 1 
006650 LOOP LP 1 
006670 000137 006622 JMP ALP 1 
006674 004767 003534 JSR PC ,P2SEND :SEND DATA TO PUNCH 1 
006700 162767 000002 012160 SUB #2,PTR i 
006706 WT DONE 1 
006706 032777 000200 012164 BIT #200,aTCR 1 
006714 001774 BEQ - :WAIT FOR DONE FLAG 1 
006716 CKTSR  #4010,LP [TEST FOR ClW 1 
006716 LP=. 1 
006716 012767 004010 012122 MOV #4010,G00D 1 
006724 017767 012154 012104 MOV aTSR,BAD :READ STATUS REGISTER 1 
006732 026767 012110 012076 CMP GOOD, BAD 1 
006740 001401 BEQ +4 1 
006742 104003 ERR+GB :STATUS REG - VALUE READ NOT EQUAL TO EX | 
006744 LOOP SsaLP 1 
006764 000137 006716 JMP aALP ; 
006770 md CKTCR #20226,LP :TEST FOR HSO + DONE + IR * PRI + PUN | 4 
L Ss | 1 

006770 012767 020226 012050 MOV #20226, GOOD i" 
006776 017767 012076 012032 MOV aTCR,BAD =READ CMD REGISTER iv 
007 026767 012036 012024 CMP GOOD. BAD ma 
007012 001401 BEQ +4 - 
007014 104003 ERR+GB :(MD REG - VALUE READ NOT EQUAL TO EXPEC | 4 
007016 LOOP sé .. 4 
007036 000137 006770 JMP aaLP mm 
007042 CKTIR 4#0,LP :TEST FOR 0 oa 
007042 LP=. . 
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CTBA.P11 20-MAY=80 08:54 SEQ 0025 
(1) 007042 012767 000000 011776 MOV #0,G00D 

(1) 007050 017767 012040 011760 MOV aTiR,BAD ;READ’ INTERRUPT REGISTER 

(1) 007056 026767 011764 011752 CMP GOOD ,BAD 

(1) 007064 001401 +4 

(1) 007066 104003 ERR+GB ; INTERRUPT REG = VALUE READ NOT EQUAL TO 
41) =007070 LOOP LP 

(2) 007110 000137 007042 JMP aaLP 

727 007114 005367 011724 DEC CNT ;I1F ALL CARDS ARE NOT DONE 

728 007120 001231 BNE P2A GO PUNCH ANOTHER CARD 

729 ;FEED CARD #20 

730 007122 012777 020007 011750 MOV #20007,aTCR ISSUE HSO + PRI + PUN + GO 

731 007130 WTODR 

(1) 007130 132777 000200 011760 BITB #200,aTIRHI 

(1) 007136 001774 BEQ -76 ;WAIT FOR OUTPUT DATA REQUEST 

732 007140 004767 003270 JSR PC,P2SEND SEND DATA TO PUNCH 

733 007144 162767 000002 011714 SUB #2,PTR 

734 pores WTIDR 

(1) 007152 032777 000200 011734 BIT #200,aTIR 

(1) 007160 001774 BEQ = WAIT FOR INPUT DATA REQUES? 

735 007162 004767 003054 JSR PC,BLKCRD ;TEST FOR BLANK CARD 

736 007166 WTDONE 

(1) 007166 032777 000200 011704 BIT #200,aTCR 

(1) 007174 001774 BEQ “ WAIT FOR DONE FLAG 

737 007176 CKTSR #4230,LP ;TEST FOR CIlW + JE + HE 

(1) 007176 LP=. 

(1) 007176 012767 004230 011642 MOV #4230, G00D 

(1) 007204 017767 011674 011624 MOV TSR,BAD READ STATUS REGISTER 

(1) 007212 026767 011630 011616 CMP GOOD ,BAD 

(1) 007220 001401 BEQ +4 , 

(1) 007222 104003 ERR+GB STATUS REG - VALUE READ NOT EQUAL TO EX 
(1) 007224 LOOP LP 

(2) 007244 000137 007176 JMP aa_P 

ty 007250 00725 ag #120206,LP ;TEST FOR ERR + HSO + DONE + PRI + PUN 

L =. 

(1) 007250 012767 120206 011570 MOV #120206,G00D 

(1) 007256 017767 011616 011552 MOV aTCR,BAD READ CMD REGISTER 

(1) 007264 026767 611556 011544 CMP GOOD ,BAD 

(1) 007272 001401 BEQ +4 

(1) 007274 104003 ERR+GB ;CMD REG - VALUE READ NOT EQUAL TO EXPEC 
(1) 007276 LOOP LP 

(2) 007316 000137 007250 JMP aaLP 

739 ;CARD #20 PUNCH AND PRINT 

740 007322 012777 000407 011550 MOV #407,aTCR ; ISSUE CLEAR ERR + PRI + PUN + GO 

741 007330 WTODR 

(1) 007330 132777 000200 011560 BITB #200, aTIRHI 

(1) 7336 001774 BEQ = WAIT FOR OUTPUT DATA REQUEST 

742 7340 CKTIR #100000,LP TEST FOR ODR 

(1) 007340 LP=. 

(1) 007340 012767 100000 011500 MOV #100000 ,GOO0D 

(1) 346 017767 011542 011462 MOV aTIR,BAD READ INTERRUPT REGISTER 

(1) 007354 026767 011466 011454 CMP GOOD ,BAD 

(1) 007362 001401 BEQ +4 

(1) 007364 104003 ERR+GB ; INTERRUPT REG - VALUE READ NOT EQUAL 10 
(1) 007366 LOOP LP 

(2) 007406 000137 097340 JMP aaLP 

743 007412 CKTCR #6,LP TEST FOR PRI + PUN 
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IN. 
| CZCTBA.P11 20-MAY=80 08:54 SEQ 0026 
QQ) 00741 LP=, 
1) tog t§ 012767 000006 011426 MOV #6,G00D 
(1) 0074 017767 «011456 «011410 MOV aTCR,BAD sREAD CMD REGISTER 
(1) 007426 026767 011414 611402 CMP GOOD BAD 
1) 0074 BEQ 244 
(1) 007436 104003 ERR+GB ;CMD REG = VALUE READ NOT EQUAL TO EXPEC 
(1) 007440 LOOP L ‘ 
(2) 7460 000137 007412 JMP aaLP 
744 ;SEE IF OUTPUT DATA REQUEST WILL my tod wr INTERRUPT 
745 152777 000100 011406 BISB #100,aTCR ;ENABLE_INTERR 
766 007472 012777 007556 011420 MOV #P2INT, aPCV :SETUP PC VECTOR. 
74? «007500 012777 000340 011414 MOV #340,aPSV ;SETUP PS VECTOR 
748 007506 012767 000040 170262 MOV #40,PS ;SET BPU TO LEVEL #1 
749 007514 000240 NOP 
750 007516 000240 NOP 
751 007520 012767 000340 170250 MOV #340,PS ;SET BPU TO LEVEL #7 
752 007526 104000 P2B: ERR ;OUTPUT DATA REQUEST DIDN'T CAUSE AN INT 
753 007530 LOOP P2B 
(1) 007550 000137 007526 JMP aaP2B 
754 007554 000402 BR P2c 
755 007556 062706 000004 P2INT: ADD #4,SP ;HOUSE KEEPING ON STACK 
756 007562 004767 002646 P2c: JSR PC ,P2SEND SEND DATA TO PUNCH 
757 007566 WTDONE 
(1) 007566 032777 000200 011304 BIT — aTCR 
(1) 007574 001774 BEQ ;WAIT FOR DONE FLAG 
758 007576 CKTSR io. LP TEST FOR STATUS =0 
(1) 007576 AP=. 
(1) 007576 012767 000000 011242 / MOV #0,G00D 
(1) 007606 017767 011274 011224 "MOV aTSR,BAD sREAD STATUS REGISTER 
(1) 007612 026767 011230 011216 CMP GOOD ,BAD 
(1) 007620 001401 BEQ +4 
(1) 007622 104003 ERR+GB sSTATUS REG = VALUE READ NOT EQUAL TO EX 
(1) 007624 LOOP LP 
(2) 007644 000137 007576 MP aaLP 
759 007650 CKTCR #306,LP ;TEST FOR DONE + INT EN * PRI + PUN 
(1) 00765 LP=. 
(1) 007650 012767 000306 011170 MOV #306, GOOD 
(1) 007656 017767 011216 011152 MOV aTCR,BAD READ CMD REGISTER 
(1) 007 026767 011156 011144 CMP GOOD ,BAD 
(1) 007672 001401 BEQ +4 
(1) 007674 104003 ERR+GB CMD REG - VALUE READ NOT EQUAL TO EXPEC 
(1) 007676 LOOP LP 
44 007716 000137 007650 JMP aaLP 
res 007722 000137 007726 JMP aaPASS3 fe 
763 ;THIS TEST PERFORMS PUNCHING WITHOUT PRINTING. ONE ALL ‘‘A’’S LETTER IS 
764 ; PUNCHED IN COLUMN 1 OF CARD 1 AND SO ON UNTIL 20 ALL ‘’A’’S LETTER 
765 : ARE PUNCHED IN THE 1ST 20 COLUMNS OF CARD 20. THIS TEST 
ro ; VERIFIES THE DATA READ FROM PUNCHING DONE IN PASS 2. 
768 007726 104400 BASS3: TYPE 
769 007730 017334 P3nscI “VERIFY THAT ALL CHARS WERE PUNCHED ON 
770 007732 104400 YPE 
771 007734 017422 P3msG2 ;PRECESS FASHION BEGINNING WITH COLUMN 1 
772 007736 104400 TYPE 
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—- P73 007740 017136 P2MSG2 ;PLACE ALL 20 CARDS IN THE PRIMARY HOPP 
7% Doves 104400 TYPE i! 
|S WOrte4 ON7Z10 P2MSG3 :'PRESS STOP-RESET AND PRESS START ON T 1! 
| $88 007746 004767 o0z240 ee cabakyy  PC*CONTIN : "PRESS CR TO CONTINUE" 1! 
| 78 007752 12767 020104 011072 MOV. «WBF 1, INPTR ‘ 
| - 279 -007760 012777 0204601 011112 MOV #20461, aTCR ; ISSUE CLEAR ERR + HSO + GO 1; 
780 007766 WTIDR ‘ 1 
CG) 007766 «032777 000200 011120 BIT #200,aTIR 1! 
(1) 007774 001774 BEQ =. =6 ;WAIT FOR INPUT DATA REQUEST 1 
| 781 007776 004767 002776 JSR «PC, CKDATA CHECK INPUT DATA FROM PASS 2 1! 
| 782. 010002 «162767 000002 011042 SUB #2, INPTR 1! 
| 783 010010 WTDONE 1; 
(1) 010010 032777 000200 011062 BIT  #200,aTCR 1! 
| CD 010016 001776 BEQ .-6 WAIT FOR DONE FLAG 
784 010020 , CKTSR  #4010,LP iTEST FOR CIW 1 
(1) 010020 LP=, 1! 
(1) 010020 012767 004010 011020 Mov #4010, G00D : 
| C1) 010026017767 011052 011002 MOV aTSR, BAD ;READ STATUS REGISTER 1? 
| C1) 010034 026767 011006 010774 CMP =» GOOD. BAD 13 
| CD 010062001401 seat 13 
| CD) 010066 104003 ERR+GB ;STATUS REG = VALUE READ NOT EQUAL TO EX 13 
(1) 010046 LOOP. soLP 13 
(2) 010066 000137 010020 JMP QML 13 
785 010072 CKTCR #20200,LP ;TEST FOR HSO + DONE 13 
a) 010072 LP=, 13 
| 010072 012767 020200 010746 Nov" #20200. Goo 13 
(1) 010100 017767 010774 010730 MOV TCR, BAD ;READ CMD REGISTER 13 
(1) 010106 026767 010734 010722 CMP GOOD, “BAD 1i 
(1) 010114 001401 BEQ 13 
(1) 010116 104903 ERR+GB ;CMD REG = VALUE READ NOT EQUAL TO EXPEC - 13 
(1) 010120 LOOP LP 13 
(2) 010140 000137 010072 13 
786 FEED CARDS #2-19- CHECKING INPUT DATA AND PUNCHING 1 CHAR IN IST CARD, 13 
787 ; 2 IN 2ND ETC. UP TO 20 CHARS IN CARD 20 13 
788 010144 012767 000022 010672 Moy #22,(NTI ;CNTI= ii 
| 789 010152 012767 000001 010660 MOV :CARD=1 | 13 
| 790 010160 012777 020003 010712 P3a: MOV #2OOOS-ATCR —»: ISSUE WSO + PUN's Go 13 
| 791 010166 WTODR 13 
| 1) 010166 «132777 000200 010722 8118 #200, aT RHI 13 
| G2 010176 901774 BEQ WAIT FOR OUTPUT DATA REQUEST 13 
792 010176 004767 002306 ish , Pt. P3SEND ;SEND DATA 10 PUNCH 13 
793 010202 062767 000001 010630 | no 13 
79% 010210 WTIDR 13 
(1) 010210 032777 000200 010676. . BIT #200,aT IR 13 
(1) 010216 001774 BEQ ;WAIT FOR INPUT DATA REQUEST 13 
795 010220 004767 002554 ISR BC. CKDATA ZCHECK INPUT DATA FROM PASS 2 | fi 
796 0102246 162767 000002 010620 SUB #2 INPTR | oa 
797 010282 WTDONE 13 
(1) 010232 032777 000200 010640 BIT #200, TCR , | qi 
(1) 010240 001774 BEQ ;WAIT FOR DONE FLAG | 43 
798 010242 CRTCR #20202,LP :TEST FOR HSO + DONE + PUN | 43 
dQ) 010242 LP=, | 43 
(1) 010242 012767 020202 010576 Mov" #20202 Good | qi 
(1) 010250 017767 010624 010560 Mov R, BAD ;READ CMD REGISTER | ai 
(1) 010256 026767 010564 010552 CRP GOOD BAD ak 
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A, 

: SEQ 0028 eres 

001401 BEQ +4 1 
104003 ERRGB ;CMD REG = VALUE READ NOT EQUAL TO EXPEC 1 
L i 

000137 010242 JMP aaLP \ 
CKTSR — #4010,LP ;TEST FOR CW y 

010314 LPs, 1 
Q12767 004010 010524 | Mov #4010, GoD 1 
017767 010556 010506 MOV TSR, BAD ;READ STATUS REGISTER 1 
026767 010512 010500 CMP = GOOD. BAD 1: 
001401 BEQ .#4 1 
104003 ERROGB :STATUS REG = VALUE READ NOT EQUAL TO EX | ¥ 
L L 1 

000137 010314 MP ALP | 43 
CKTIR — #O,LP ;TEST INTERRUPT REG FOR 0 | yi 

010366 LPs, ) 
012767 000000 010452 Mov. #0, Good | 4 
017767 010514 010434 MoV —aTIR. BAD ;READ INTERRUPT REGISTER at 
026767 010440 010426 CMP GOOD. BAD | 4 
001401 BEQ =. 44 | 4 
104003 gg » ; INTERRUPT REG = VALUE READ NOT EQUAL TO 1 
L L } i 

000137 010366 JMP ALP i a 
005367 010400 DEC ——CNTI \; 
001245 BNE P3A ;GO PUNCH AND READ MORE CARDS 13 
;FEED CARD #20 13 

012777 020003 010424 Nov #20003.aTCR ISSUE HSO + PUN + GO 13 
| 1 

132777 000200 010434 BITB #200, aTIRHI \; 
001774 BEQ 6 ;WAIT FOR OUTPUT DATA REQUEST 13 
004767 002020 JSR PC, P3SEND "SEND DATA TO PUNCH \; 
062767 000001 010342 ADD #1, CARD i; 
“41 

032777 000200 010410 BIT #200, aTIR ii 
001774 BEQ 76 ;WAIT FOR INPUT DATA REQUEST 13 
004767 002266 JSR PCACKDATA SCHECK INPUT DATA FROM PASS 2 | 4 
wW 

032777 000200 010360 BIT #200, aTCR | i; 
001774 | aoe ;WAIT FOR DONE FLAG \; 
3 CKTSR —#4230,LP [TEST FOR ClW + IE + HE | i 
010522 LP=, i; 
012767 004230 010316 MOV #4230, GOOD | ani 
017767 010350 010300 MOV —aTSR, BAD ;READ STATUS REGISTER | ii 
026767 010304 010272 CMP = GOOD; BAD | dy 
001401 BEQ #4 i 
104003 ERRGB ;STATUS REG - VALUE READ NOT EQUAL TO EX | a 
L L i 

000137 010522 MP. aMLP ti 
CKTCR #120202,LP ;TEST FOR ERR + HSO + PUN + DONE ‘ 

010574 LP=, 1i 
012767 120202 010244 Mov. #120202, Go0D \; 
017767 010272 010226 MOV aTCRBAD ;READ CMD REGISTER ‘ 
026767 010232 010220 CMP = GOOD: BAD 4 
001401 BEQ =. 44 i 
104003 ERROGB ;CMD REG - VALUE READ NOT EQUAL TO EXPEC ti 
L L i 

000137 010574 jmP ALP iF 
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813 :PUNCH CARD #20 1 
814 010646 012777 000003 010224 MOV #3,aTCR ; ISSUE PUN + GO 1 
B15 010654 WTODR 1 
(1) 010654 132777 000200 010234 BITB #200,aTIRHI 1 
(1) 010662 001774 BEQ .-6 ;WAIT FOR OUTPUT DATA REQUEST 1 
B16 010664 004767 001620 JSR PC ,P3SEND “SEND DATA TO PUNCH 1! 
817 010670 WTDONE V 
(1) 010670 032777 000200 010202 BIT #200,aTCR 7 
(1) 010676 001774 BEQ .=6 :WAIT FOR DONE FLAG 7 
818 010700 CKTSR  #0,LP ‘TEST FOR STATUS=0 1 
(1) 010700 LPe, 7 
(1) 010700 012767 000000 010140 MOV #0,G00D 1 
(1) 010706 017767 010172 010122 MOV aTSR,BAD ;READ STATUS REGISTER 1 
(1) 010714 026767 010126 010114 CMP GOOD BAD 1 
(1) 010722 001401 BEQ 44 . 1 
(1) 010724 104003 ERR+GB * SSTATUS REG - VALUE READ NOT EQUAL TO EX i 
(1) 010726 LOOP LP 1 
(2) 010746 000137 010700 JMP ALP y 
819 010752 CKTCR #000202,LP :TEST FOR ERR + DONE 1 
(1) 010752 : LP=. 1 
(1) 010752 012767 000202 010066 MOV #000202,G00D a | 
(1) 010760 017767 010114 010050 MOV aTCR,BAD :READ CMD REGISTER y 
(1) 010766 026767 010054 010042 CMP 6000, BAD | on 
(1) 010774 001401 BEQ | 4 
(1) 010776 104003 ERR+GB :CMD REG = VALUE READ NOT EQUAL TO EXPEC i’ 
(1) 011000 LOOP LP 1 
(2) 011020 000137 010752 JMP ALP | 4 
ast 011024 000137 011030 JMP OAPASSS | rT 
' d 
822 THIS TEST PERFORMS A SEPARATE PRINT OPERATION ON ALL CARDS BY | ‘ 
823 : PRINTING "CARD 01°’ IN COLUMNS 1-7 OF CARD 1 UP TO ‘CARD 20° IN 1 
824 ( : COLUMNS 1-7 OF CARD 20. VERIFY CORRECT DATA READ FROM PUNCHING y 
825 DONE IN PASSES 2 + 3 te 
‘ ' | 
827 011030 104400 PASSG: TYPE te 
828 011032 017510 P4MSG1 s'VERIFY THAT THERE IS THE LETTER ‘'A 
829 : PUNCHED IN CARD #1 | 
830 011034 104400 TYPE 
831 011036 017577 P4MSG2 :THAT IS HOLE PUNCHED IN ROW 12 AND 1 
832 011040 104400 TYPE | 
B33 011042 017645 P4MSG3 :UP TO 20 ALL A'S CHARS PUNCHED IN CARD | 
B34 011064 104400 TYPE | 
835 011046 017136 P2MSG2 :PLACE ALL 20 CARDS IN THE PRIMARY HOPP 
836 ©C11050 104400 TYPE } 
837 011052 017210 P2MSG3 ;"PRESS STOP-RESET AND PRESS START ON | | wy 
838 011054 004767 001132 JSR PC, CONTIN ‘PRESS CR TO CONTIN 
839 011060 004767 001330 JSR PC’ SETBFS “PREPARE BUFFER FOR DATA COMPARE 
840 FEED CARD #1 
842 011064 012767 020104 007760 MOV #BF1,INPTR 
843 011072 012777 020401 010000 MOV #20461, aTCR :ISSUE CLEAR ERR + HSO + GO 
B44 011100 WTIDR DS 
(1) 011100 032777 000200 010006 BIT me aTIR 
(1) 011106 001774 BEQ :WAIT FOR INPUT DATA REQUEST 
B45 011110 004767 001664 JSR ec CKDATA “CHECK INPUT DATA FROM PASSES 2 * 3 
846 011114 162767 000002 007730 SUB #2,1NPIR 
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062767 
032777 


162767 


032777 
001774 


011376 


104003 
000137 
011450 


026767 


000200 


004010 
007740 
007674 


011132 


020200 
007662 
007622 


011204 


020017 
000200 
001262 
001346 
000001 
000200 
000200 


001420 
000002 


000200 


020216 
007470 
007430 
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007750 


007706 
007670 
007662 


007634 
007616 
007610 


007560 


007572 
007602 


007504 
007552 
007542 


007464 
007504 


007442 
007424 
007416 


007370 
007352 
007344 


WTDONE 


JM 
>FEED CARDS #2-19 
MOV & 


JSR 
ADD 
IDR 


#200,aTCR 
#4010,LP 
#4010,G00D 
aTSR,BAD 
GOOD , BAD 
+4 

LP 

aaLP 
#20200,LP 
#20200,G00D 


aALP 


#1,CARD 


,CAR 
#CARDO1,OUTPTR 
#20017,aTCR 


#200,aTIRHI 


JSR PC,P5SEND 
PC ,P4SEND 
#1,CARD 


#200, aTIR 
#200,aTIR 
=6 


PC, CKDATA 
#2.INPTR 


#200,aTCR 
#20216,LP 
#20216,G00D 
aTCR,BAD 
GOOD BAD 
#4 

LP 

aaLP 
#4010,LP 
#4010,G00D 
a1SR,BAD 
GOOD , BAD 


SEQ 0030 


R DONE FLAG 
R ClwW 


sREAD STATUS REGISTER 

;STATUS REG = VALUE READ NOT EQUAL TO EX 
TEST FOR HSO + DONE 

sREAD CMD REGISTER 


CMD REG - VALUE READ NOT EQUAL TO EXPEC 


CHECKING INPUT DATA AND PRINTING IN COLUMNS 1-7 
22, (NTI :CNT1=18 


3; CARD=1 
;OUTPTR=CARDO1 
; ISSUE HSO + SPD + PRI + PUN + GO 


WAIT FOR OUTPUT DATA REQUEST 
;SEND DATA TO PUNCH 
SEND DATA TO PRINT 


;WAIT FOR INPUT DATA REQUEST 


;WAIT FOR DONE FLAG 
;CHECK INPUT DATA FROM PASSES 2 + 3 


;WAIT FOR DONE FLAG 
;TEST FOR HSO + DONE * SPD + PRI * PUN 


;READ CMD REGISTER 
;CMD REG - VALUE READ NOT EQUAL TO EXPEC 
TEST FOR ClW 


;READ STATUS REGISTER 


-MA 
CZC 


1 


14 
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(1) 017472 001401 BEG 4G 

(1) 011474 104008 ERR*GB ;STATUS REG - VALUE READ NOT EQUAL TO EX 

(1) 011476 LOOP. soLP 

(2) 011816 000137 011450 JMP ALP 

867 011522 CKTIR #0,LP ;TEST INTERRUPT REG FOR 0 

a) 011522 (P=, 

(1) 011522 012767 000000 007316 Hov’ #0, GOD 

(1) 011580 017767 007360 007300 MOV —s aT IR. BAD :READ INTERRUPT REGISTER 1 

(1) 011536 026767 007304 007272 CMP «GOOD “BAD 

(1) 011544 001401 ee 

(1) 011546 1046003 ERR+GB ; INTERRUPT REG = VALUE READ NOT EQUAL TO 

(1) 011550 LOOP. soLP 

(2) 011570 000137 011522 JMP So AMLP 

B6B 011574 005367 007244 DEC SCNT 1 

869 011600 001237 BNE PA :GO PRINT AND READ MORE CARDS 

870 SFEED CARD #20 

871 011602 012777 020017 007270 MOV. #20017,aTCR ISSUE _HSO * SPD + PRI * PUN + GO 

872 011610 WTODR 

(1) 011610 132777 000200 007300 BITB. #200, aTIRHI 

(1) 011616 001776 6. 055.» ;WAIT FOR OUTPUT DATA REQUEST 

873 011620 132777 000200 007270 BITB #200, aTIRHI 

B74 011626 001774 BEQ ss :WAI1 FOR OUTPUT DATA REQUEST 

875 011630 062767 000001 007202 ADD so WA CARD 

B76 011636 004767 000742 JSR PC -PSSEND :SEND DATA TO PUNCH ies 4, 

877 011642 004767 001026 JSR PC,P4SEND ;SEND DATA TO PRINTER 

878 011646 WTIDR 

(1) 011646 032777 000200 007240 BIT #200, aTIR 

(1) 011654 001774 1) ee | :WAIT FOR INPUT DATA REQUEST 

879 011656 004767 001116 JSR PC. CKDATA “CHECK INPUT DATA FROM PASSES 2 3 

880 011662 162767 000002 007162 : SUB #2 INPTR 

881 011670 WT DONE 1 

(1) 011670 032777 000200 007202 BIT #200. aTCR 

(1) 011676 001774 0% os :WAIT FOR DONE FLAG 

882 011700 CKTSR #4230,LP “TEST FOR ClW * IE * HE 

Ud) 011700 LP=. 

(1) 011700 012767 004230 007140 MOV - #4230,G00D 

(1) 011706 017767 007172 007122 MOV —s aT SR. BAD FREAD STATUS REGISTER 

(1) 0117146 026767 007126 007114 (MP «GOOD “BAD 1 

(1) 011722 001401 BEQ 8G 

(1) 011724 106003 ERR*GB :STATUS REG - VALUE READ NOT EQUAL TO Ex 

(1) 011726 LOOP. LP 

(2) 011746 000137 011700 JMP ALP 

883 011752 CKTCR #120216,LP ;TEST FOR ERR * HSO * SPD + PRI * PUN * 

) 011752 LP=, 1 

(1) 011752 01276? 120216 007066 Mov - #120216, GooD 

(1) 011760 017767 007114 007050 MOV TCR, BAD :READ CMD REGISTER 

(1) 011766 026767 007054 007042 CMP «GOOD “BAD 

(1) 011774 001401 ees’ 

(1) 011776 106003 ERR*GB [CMD REG - VALUE READ NOT EQUAL TO EXPEC 

(1) 012000 LOOP, soLP 

(2) 012020 000137 011752 JMP ML 

BBG SPRINT CARD #20 

885 012024 012777 000617 007046 MOV #000417,aTCR ISSUE CLEAR ERR * SPD + PRI * PUN * GO 

BB6 012032 WTODR 8 

(1) 012032 132777 000200 007056 BI1B. #200, aTIRHI 

(1) 012040 001774 6 a ‘WAIT FOR OUTPUT DATA REQUEST 
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004767 
004767 


104003 
000137 


000005 
000207 


104400 


2) 
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000536 
000622 


000200 


000000 
007010 
006744 


012062 


000216 
006732 
006672 


012134 


001734 
002642 
000015 


002554 


000001 
001704 
000200 


000000 


006614 
006544 


000121 


000000 
006562 


007020 


006756 
006740 
006732 


006704 
006666 
006660 


006634 


006556 
006540 
006532 


096520 
006502 


;SUBROUTINE TO WAIT FOR CR 


CONTIN: TYPE 


PC,PSSEND 
PC,P4SEND 


#200,aTCR 


aALP 
#216,LP 
#216,G00D 


PC 


CONMSG 
JSR 

CONTI: JSR PC,1T 
CMP #15,R4 
BNE CONT 1 
JSR PC, TTYOUT 
RTS PC 

: SUBROUT INE 

BLKCRD: MOV #1,R0 

JSR 

BC1: BIT #200,aTIR 
BEQ BC! 
MOV #0,GO0D 
MOV aTOR,BAD 
CMP GOOD , BAD 
BEQ +6 
ERR+GB+COL 
INC R 
CMP #121,R0 
BNE BCI 
CKTIR #0.LP 
LP=, 
MOV #0,G00D 
MOV al iR, BAD 


PC, CKSWR 
YIN 


PC, CKSWR 


;SEND DATA TO PUNCH 
SEND DATA TO PRINTER 


;READ STATUS REGISTER 


SEQ 0032 


sSTATUS REG = VALUE READ NOT EQUAL TO EX 


;TEST FOR DONE + SPD + PRI + PUN 


READ CMD REGISTER 


CMD REG = VALUE READ NOT EQUAL TO EXPEC 


EXIT CARD TEST 


;’PRESS CR TO CONTINUE”’ 


GET A CHAR 
:WAS IT CR ? 
;NO - KEEP WAITING 
;YES - TYPE CR * LF 


TO TEST FOR BLANK CARD (ALL SPACES) 


WAIT FOR INPUT DATA REQUEST 
READ DATA REGISTER 


:DATA REG ~- COMPARE ERROR AT INDICATED ( 


:1f MORE COLUMNS TO READ GO DO IT 
TEST THAT IDR 1S 0 


READ INTERRUPT REGISTER 


-MA 
CZC 


1 


14 
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012334 026767 006506 006474 CMP GOOD ,BAD 14 
012342 001401 BEQ 44 
012344 104003 ERR+GB : INTERRUPT REG = VALUE READ NOT EQUAL TO 
012346 LOOP. saLP 
012366 000137 012320 JMP aaLP 
012372 000207 RTS PC EXIT 
:PUT SPACE CHAR IN ALL LOCS BF20 - BF1+10 1 
012374 012702 020036 CLRBFS: MOV #BF20,R2 
012400 012722 000000 CB1: MOV #0, (R2)4 
012406 022702 020130 CMP HBF 1426 ,R2 
012410 001373 BNE CBI 
012412 000207 RTS PC 
[PUT 1 CHAR (4400) IN LOCS BF20 - BFI 
012414 012702 020036 SETBFS: MOV #BF20.R2 ™ 
012420 012722 004400 SB1: MOV #4400, (R2)+ 
0124624 022702 020106 CMP WBF 14+2,R2 
012430 001373 BNE SBI 
012432 000207 RTS PC 
;SEND 80° CHARS BEGINNING AT LOC POINTED TO By PIR 4 
12434 016700 006426 P2SEND: MOV PTR,RO 
12440 004767 001512 JSR PC, CKSWR 
12444 012701 000120 MOV #120, 
12450 132777 000200 006440 P2SD1: BITB #200. aTIRHI 
12456 001774 BEQ P2SDi :WAIT FOR OUTPUT DATA REQUEST | 
12460 011077 006424 MOV (RO) ,aTDR =SEND A CHAR 
12464 062700 000002 ADD #2,R0 | 6 
12470 005301 DEC R1 :ALL 80 CHARS SENT ? 
12472 001366 BNE P2SD1 [NO - GO SEND ANOTHER ONE 
12474 132777 000200 006414 BITB  #200,aTIRHI ‘ 
12502 001401 BEQ 4h 
12504 000000 KX ZERROR - GOT MORE THAN 80 ODR'S 
12506 000207 RTS Pc 
[SEND 1 CHAR TO CARD #1 UP TO 20 CHARS TO CARD #20 
012510 016767 006324 006360 P3SEND: MOV CARD, 1061 14 
012516 012700 000001 MOV #1,R 
012522 004767 001430 JSR PC, CKSWR 
012526 132777 000200 006362 P3SD1: BITB #200,aTIRHi 
012534 001774 BEQ P3SDi :WAIT FOR OUTPUT DATA REQUEST 
012536 012777 004400 006344 MOV #4400, aTDR “SEND ''4400'' CHARACTER 
012544 005200 INC RO 
012546 005367 006324 DEC 1061 
012552 001365 BNE P3SD1 :NO - GO SEND ANOTHER ONE 
012554 132777 000200 006334 P3SD2: BITB #200, aTIRHI 14 
012562 001774 BEQ P3Sp2 :WAIT FOR OUTPUT DATA REQUEST 
012564 112777 000000 006320 MOVB  #0,aTDRHI “SEND SPACE CHAR 
012572 005200 INC RO 
0125746 022700 000121 CMP #121,R0 :HAVE ALL 80 CHARS BEEN SENT 
012600 001365 BNE P3SD2 “NO - GO SEND MORE 


-MAIN. MACY) eh ins 09:53 PAGE 3-32 


C2CTBALP11 —-20=MAY=80 08:54 SEQ 0034 ere 
973 012602 000207 RTS PC 
378 4 
976 [SEND CHAR #7777 TO CARD #1 UPTO 20 CHARS TO CARD #20 TO 
977 *PUNCH ALL HOLES IN RESPECTIVE COLUMN NUMBER 
978 012604 016767 006230 006264 PSSEND: MOV CARD T0G61 
979 012612 012700 000001 MOV 
980 012616 132777 000200 006272 PSSD1: BITB 4266 aTIRHI 
981 012624 001774 ' BEQ PSSDi ;WAIT FOR OUTPUT DATA REQUEST 
982 012626 012777 007777 006254 MOV #7777, aTDR :SEND ''7777'' CHARACTER 1 
983 012634 005200 INC RO 
984 012636 005367 006234 DEC T061 ;HAVE ALL CHARS BEEN SENT 
985 012642 001365 BNE P5SD1 :NO = GO SEND ANOTHER ONE 
986 012644 132777 000200 006244 P5SD2: BITB #200,aTIRHI 1 
987 012652 001774 BEQ P5SD ;WAIT FOR OUTPUT DATA REQUEST 
988 012654 112777 000000 006230 MOVB #0,aTDRHI 
989 012662 005200 INC RO 
990 012664 022700 000121 CMP #121,R0 ;HAVE ALL 80 CHARS BEEN SENT 
991 012670 001365 BNE P5SD2 [NO = GO SEND MORE CHARS 
992 012672 000207 RTS PC 
993 
994 
995 
926 ; 
44 SEND 7 CHARS TO BE PRINTED ‘'CARD XxX’ AND THEN ALL SPACES 
999 012674 005067 006176 P4SEND: CLR 061 | 
1000 012700 004767 001252 PC, CKSWR 
1001 912706 132777 000200 006204 P4SD1: BITB 1200, aTIRHI 
1002 012712 001774 BEQ ;WAIT FOR OUTPUT DATA REQUEST 
1003 012714 017777 006142 006166 MOV SOUTPTR, aTDR *SEND A CHAR 
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CIT SOAC1052) 20-MAY=BO 09:53 PAGE 4 mA 
20-MAY=B0 08:54 SEQ 0035 cre 
062767 900003 006132 ADD —s- #2, OUTPTR \ 
005267 00614 INC 1061 1 
Oe2767 000007 006134 CMP #7, TOG ;HAVE ALL PRINTING CHARS BEEN SENT 1 
001 360 BNE P41 NO = GO PRINT MORE 1 
132777 000200 006144 P4SD2: BITB #200, aTIRHI 1 
001774 BEQ  P4Sde ;WAIT FOR OUTPUT DATA REQUEST 1 
012777 000000 006126 MOV #0, aTDR SEND SPACE CHAR , 1 
005267 006110 INC 1061 1 
022767 000120 006102 CMP = #120, T061 ;HAVE ALL 80 CHARS BEEN SENT 1 
001363 BNE P4sd2 :NO = GO SEND MORE CHARS | 4 
000207 RTS = PC 4 
;COMPARE INPUT DATA PATTERN BEGINNING AT INPTR | 4 

000002 mp =2 =: 
012700 000001 CKDATA: MOV #1, RO | ¢ 
016767 006042 006054 MOV INPTR,PTR 1 yi 
032777 000200 006074 CDI: BIT  —- #200, aTIR } 4 
001774 BEQ =D ;WAIT FOR INPUT DATA REQUEST | yi 
032777 000002 006054 BIT AMP, aTSR TEST FOR MULTI-PUNCH | yi 
001402 BEQ 1$ | 4 
005267 006036 INC — MPSAV YES MP SET | yi 
017767 006024 006002 1$: MOV — PTR, GOOD | yi 
017767 006040 005764 MOV —s @TDR, BAD ;READ DATA REG om 
026767 005770 005756 CMP GOOD. BAD | gi 
001401 BEQ = S | 4 
104007 ERR+GB+COL ;DATA REG = COMPARE ERROR AT INDICATED 1 
005767 006004 2$: TST -MPSAV LOOK FOR MULT-P BIT 1 
001406 BEQ 3S ;NO 1 
022767 000377 005736 CMP = #377, BAD 1S DATA MULTI-DATA ii 
001407 BEQ 7 YES 1i 
104007 ERR+GB+COL :MULTI-P SET,DATA NOT 377 1i 
000405 BR 5$ ZEXIT 1 
022767 000377 005722 38: CMP = #377, BAD TEST FOR MULTI-DATA } 
001001 BNE  _5$ NO MULTI-DATA | 1 
04007 ERR+GB4COL :MULTI-P DATA,NO MP SEEN | yi 
067 005750 5$: CLR. MPSAV | +i 
005200 INC — RO ii 
062767 000002 005732 ADD —s- #2, PTR | yi 
022700 000121 CMP #121,R0 | 4 
001324 BNE CDI ;1F MORE COLUMNS TO READ GO DO 11 it 
000207 RTS PC ZEXIT | 4 
CONVERT OCTAL # IN RO TO DECIMAL # AND TYPE OUT DECIMAL # oe: 

010067 000110 OCTDEC: MOV —RO, TOG Be: 
00506 000100 CLR ONES | 1 
005067 000076 CLR TENS 1 
005267 000070 Op1: INC ONES | + 
022767 000012 000062 CMP = # 12, ONES | ¢ 
001404 BEQ  OD2 1 
005367 000060 DEC 106 i 4 
001367 BNE ODI a: 
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ACYT1 3QA(1052) 20-MAY-80 09:53 PAGE 4-1 mA 
1 20-MAY=80 08:54 SEQ 0036 é2¢ 
13206 005067 000044 OD2: CLR ONES 
13210 05267 90004 INC TENS i ¢ 
13214 005367 00004 DEC T0G 1 
1 g20 001357 BNE 0D1 1 
i3222 016704 000030 0D3: MOV TENS ,R4 1 
13226 062704 000060 ADD —s-#60, R4 i * 
13232 004767 001556 JSR PC,TTYOUT ;TYPEOUT TENS 1 
13236 016704 000012 MOV — ONES, RG oy! 
13262 062704 000060 ADD —s-#60,, R4 1 
13246 767 001542 JSR PC, TTYOUT ;TYPEOUT ONES 1 
13252 000207 RTS PC ros 
13254 000000 ONES: Xx i 
13256 000000 TENS: XX a 
13260 000000 TOG: Kx a 
; INPUT ROUTINE FOR DEVICE ADDRESS, INT VECTOR ADDRESS AND BR LEV i # 
13262 104400 DEVCOD: TYPE a 
13264 015116 DCMSG1 ;"'THE FOLLOWING VALUES ARE BEING USED" ie | 
13266 104400 TYPE | yi 
3270 015164 DCMSG2 :'' DEVICE ADDRESS = *' | 4 
3272 104406 TYPE+6 ae 
3274 021100 TCR ;TYPE TCR ADDRESS | 4 
3276 104400 TYPE | gi 
3300 015213 DCMSG3 ;'' PC INTERRUPT VECTOR ADDRESS = °° | 1 
3302 104403 TYPE+3 1 
3304 021120 PCV ;TYPE PCV ADDRESS | yi 
3306 104400 TYPE | yi 
3310 015257 DCMSG4 :‘' BUS REQUEST LEVEL = “’ | yi 
3312 104401 TYPE+1 1! 
3314 021124 BRLV : TYPE BRLV 1i 
;TEST TO SEE IF VALUES ARE TO BE CHANGED 1i 
3316 104400 TYPE an 1! 
3320 015311 DCMSGS "DO YOU WANT TO CHANGE ANY OF THESE VAL 1i 
3322 006767 001542 DC1: JSR - PC,TTYIN ;INPUT A CHAR 1i 
3326 022704 000131 CMP #131,R4 :1S ITY ? 1i 
3332 001004 BNE DC2 :NO = GO CHECK FOR N 1i 
3334 004767 001454 JSR PC, TTYOUT :YES - ECHO Y 1i 
3340 000167 000014 JMP oc$ :G0 GET NEW VALUES at 
3344 022704 000116 pc2: CMP #116,R4 :1$ ITN? | gi 
3350 001364 BNE DCI ;NO = GO BACK TO INPUT | 4 
3352 004767 001436 JSR PC, TTYOUT YES = ECHO N 1! 
3356 000207 RTS PC EXIT 1! 
;VALUES ARE TO BE CHANGED ze 
3360 104400 DC3: ‘TYPE | qi 
3362 015377 DCMSG6 ;'' ENTER VALUE AFTER (=) IS TYPED" 1 
3364 104400 TYPE Bi 
3366 015164 DCMSG2 :‘' DEVICE ADDRESS = “' l 4 
3370 012705 000006 MOV #6,R5 we 
3374 004767 000470 JSR PC ,RDOCT :GET NEW DEVICE ADDRESS ats, 
3400 042704 000007 BIC #7 RG i 
3404 012705 021100 MOV #TCR,RS 1 4, 
3410 042715 177770 DC4: ~— BIC #177770,(R5) | 4 
3414 050425 BIS RG, (R5)4 :STORE 4 NEW DEVICE ADDRESSES es 
3416 020527 021120 CMP R5,APCY 1 4, 
3422 001372 BNE C4 ipay 
3424 104400 TYPE be 4, 
3426 015213 DCMSG3 :''  PC_INTERRUPT VECTOR ADDRESS = 1 
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CY11_30A(1052) 20-MAY-80 09:53 PAGE 4-2 
20-MAY-80 08:54 SEQ 0037 
4 preres 000003 MOV #3,R5 
004767 000430 JSR PC, RDOCT 3GET NEW INT VECTOR ADDRESS 

40 010667 005454 MOV R4,PCV ;SET NEW PC VECTOR ADDRESS 
3444 062706 000002 ADD #2,R4 
320 010467 005446 MOV R4,PSV 7SET NEW PS VECTOR ADDRESS 

54 104400 TYPE 
3456 015257 DCMSG4 3'' BUS REQUEST LEVEL = "' 
3460 012705 000001 MOV #1LRS 
3464 004767 000400 JSR PC,RDOCT 7GET NEW BR LEVEL 
3470 010467 005430 MOV R4,BRLV 7SET NEW BR LEVEL 
3474 000207 RTS PC sEXIT 

;ERROR SUBROUTINE 
3476 004767 000454 ERROR: JSR PC,CKSWR 
3502 032777 020000 165170 BIT #20000, aSWR 
3510 001403 BEQ .+10 71S LOOP ON ERROR SELECTED ? 
3512 012767 000001 005350 MOV #1, SCOPE sYES - SET SCOPE TO A 1 
3520 011667 005330 MOV (SP) ,LASTPC ;PUT ADDRESS OF ERROR IN LASTPC 
3524 032777 040000 165146 BIT #40000, aSWR z1F SR14=1 DELETE TYPEOUT 
3532 001041 BNE E3 sEX1T NOW 
3534 104400 TYPE 
3536 015576 PCMSG :""ERROR AT ADDRESS"' 
3540 011667 005270 MOV (SP) ,ADR 
3544 162767 000002 005262 SUB #2, ADR 
3552 104406 TYPE+6 
3554 021034 ADR ;TYPE CONTENTS OF ADR 
3556 032777 000002 005250 BIT #2, ADR :TYPE GOOD ? 
3564 001404 BEQ E1 NO 
3566 104400 TYPE 
3570 015622 GDMSG :‘'GOOD="' 
3572 104406 TYPE+o 
3574 021046 GOOD :TYPE CONTENTS OF GOOD 
3576 032777 000001 005230 E1: BIT #1,@ADR sTYPE BAD ? 
3604 001404 BEQ E2 7NO 
3606 104400 TYPE 
3610 015631 BDMSG :'BAD =" 
3612 104406 TYPE+6 
3614 021036 BAD ZTYPE CONTENTS OF BAD 
3616 032777 000004 005210 E2: BIT #4, ADR 
3624 1404 BEQ E3 
3626 104400 TYPE ‘ 
3630 015640 COLMSG :'COLUMN #="" 
3632 004767 177306 JSR PC ,OCTDEC :TYPEOUT DECIMAL COLUMN # IN ERROR 
3636 012704 000015 £3: MOV #15 RS 
3642 004767 001146 JSR PC, TTYOUT sTYPE CR + LF 
3646 032777 100000 165024 BIT #100000,aSWR =: IF SR15=1 
3654 001001 BNE E4 ;BYPASS THE ERROR HALT 
3656 000000 ERRHLT: XX sERROR HALT 
3660 000002 E4: RTI sEXIT 
;DETERMINE IF THIS TYPEOUT IS FOR MESSAGE OR OCTAL VALUE AND BRANCH ACCO 

3662 011603 TYPOUT: MOV (SP) ,R3 :GET PC FROM STACK 
3664 162703 000002 SUB #2,P :SUBTRACT 2 
3670 032713 000007 BIT #7, (R3) sTEST LOW ORDER 3 BITS OF TRAP INSTRUCTI 
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2) 20-MAY=80 09:53 PAGE 4-3 
08:54 


000252 


000046 


000015 
001062 


000002 


177770 


005056 


005014 
000006 


000006 
004774 


000740 
004762 
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004746 


005070 
005062 


004734 


SEQ 0038 


BEQ TYPMSG :1F 0°S GO TO TYPMSG 
BR TYPOCT :1F NOT O'S GO TO TYPOCT 
MESSAGE TYPEOUT - RS=ADDRESS OF BEGINNING OF MESSAGE 
TYPMSG: JSR PC, CKSWR 
MoV (SP), 
MOV (RG) RS RS= ADDRESS OF MESSAGE 
™1:  MOVB  (RS5)4+,R4 ‘PUT CHAR IN 
BEQ ™M3 SIF IT EQUALS 5 TERMINATE 
CMP #46,R4 SDOES CHAR = CRLF FLAG ? 
BNE ™2 ‘NO = GO TYPE CHAR 
MOV #15,R4 ‘YES = TYPE CR¢ 
™2: JSR PC, TTYOUT 760 TYPE CONTENT OF R4 
BR Ti :GO GET NEXT CHAR 
™3: ADD #2, (SP) ‘ADD 2 TO SP FOR RETURN 
RTI EXIT 
SOCTAL TYPEOUT = R4=VALUE RS=# OF DIGITS TO TYPE 
TYPOCT: Mov 
BIC A740, RS :RS = # OF DIGITS TO BE TYPED 
ADD 2,R 
MOV (aS) PT 
MOV aPT,R4 :R4 = VALUE TO BE TYPED 
MOV RS.CNT ‘SET CNT FOR STACKING 
TO.1: MOV [PUT VALUE IN TEMP 
BIC Raye 70, TEMP § :MASK OUT ALL BUT BITS 2,1+0 
ADD #60, TEMP ‘MAKE ASCII NUMBER 
MOV TEMP, =(SP) STORE NUMBER “ON STACK 
ROR Re 
ROR RG 
“DEC CNT :1f CNT IS NOT ZERO 
BNE 10.1 :GO STACK ANOTHER NUMBER 
CMP #6,R5 
BNE 10.2 :1f 6 NUMBERS WERE SELECTED 
BIC #6, (SP) [CLEAR BITS 140 OF LAST NUMBER STACKED 
TO.2: MOV R5,CNT ‘SET CNT FOR TYPING 
10.3: MOV (SP)+,R4 [GET A NUMBER FROM THE STACK 
JSR PC, TTYOUT [TYPE THE NUMBER 
DEC CN NT :1F COUNT 1$ NOT ZERO 
BNE 0.3 :GO TYPE ANOTHER NUMBER 
ADD 12. (SP) [ADD 2 TO SP FOR RETURN 
RTI an EXIT 
SOCTAL TYPEIN - R5=#OF DIGITS TO BE INPUT INTO R4 
RDOCT: MOV RS, CNT :CNT=# OF DIGITS TO BE INPUT 
CLR TEMP 
RD.1: JSR PC, TTYIN :GET CHAR FROM TTY 
JSR PC TTYOUT “ECHO IT 
BIC #177770,R4 *MAKE CHAR OCTAL 
ROL TEMP 
ROL TEMP 
ROL TEMP 
BIC #7, TEMP :CLEAR TEMP BITS 2,140 
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004730 
004674 


004716 


000176 
163366 
163362 
177600 
000007 
164474 
014463 


0 
014500 


163302 
163276 
177600 
000025 


014456 
000006 


000015 
000004 
000002 
000010 
014512 
164345 
000100 


000356 
000060 


000067 
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000002 


164514 


000001 


164346 


000001 
163200 


K19: 


K7: 


K9: 


K20: 
K10: 


K14: 


nA 
— — 
aw 
eo ee 


ADD R4, TEMP 
DEC Cnt 
BNE RD.1 
MOV TEMP, RG 
RTS PC 
i ¥SOF TARE SWITCH REGI 
ROUTINE 1S ENTERED F 
: SSERVICE THE TEST FOR 
+ #WHEN OPERATING IN TTY 
(KS WR : CMP #SWR . 
BNE K15 
TSTB 2 sTKS 
BPL K15 
MOVB KB,=(S 
BIC #°C177, (SP) 
CMP #7, (SP)4 
BNE Q 
CMPB = AUTOB,, #1 
BEQ 2 
TYPE ,CNTLG 
GTSWR: TYPE “MSWR 
MOV SWREG,-(SP) 
JSR PC,TYP 
TYPE  ,MNE 
CLR =(SP) 
CLR -(SP) 
TSTB. =: TKS 
BPL K7 
MOVB _—sCTKB, =(SP) 
BIC #°°177, (SP) 
CMP (SP) #25 
BNE 10 
TYPE SCNTLU 
ADD #6,SP 
BR K19 
CMP (SP) #15 
BNE K16 
TST 4(SP) 
BEQ K11 
Ov 2(SP) ,aSWR 
K11: ADD #10,SP 
:TTY INPUT ROUTINE 
TYPE CRLF 
CMPB ss INTAG, #1 
BNE K15 
MOV #100,TKS 
RTS PC 
JSR PC, TYPEC 
CMP (SP) , #60 
BLT K1 
CMP (SP) ,#67 
BGI K18 
BIC #60,(SP)4 
1ST 2(SP) 


i 
3 SAVE THE C 


;ADD INPUT CHAR TO OTHERS 
:1F ALL CHARS NOT READ IN 
:GO_ READ ANOTHER ONE 
ae OCTAL VALUE IN R4 


STER_ CHANGE ROUTINE. 
ROM TRAP HANDLERR,AND WILL 
eae nee” SOF TWARE SwITCh REGISTER TRAP CALL 


318 THE SOFT-SWR SELECTED? 

;BRANCH IF NO 

CHAR THERE? 
IF Dera WAIT AROUND 


‘or OFF THE ASCII 


15 A" ae CONTROL G? 


O RETURN TO USER 
i ARE WE RUNNING IN AUTO-MODE? 
:BRANCH IF YES 
;ECHO THE CONTROL=G (4G) 
: TYPE CURRENT sr seat 
Se SWREG FOR TYPEOU 
:G0 TYPE-OCTAL ASEITCALL DIGITS) 
PROMPT FOR NEW SWR 
—ws 


CHAR THERE? 

:1F NOT TRY AGAIN 
;P1CK UP_CHAR 

;MAKE IT 7-BIT ASCII 


:YES ECHO CONTROL - U(*U) 
; IGNORE PREVIOUS INPUT 


LET'S TRY IT AGAIN 
:1S IT A <CR>? 
;BRANCH IF NO 
7YES,I1S IT THE FIRST CHAR? 
BRANCH IF YES 
SAVE NEW SWR 
CLEAR UP STACK 


;ECHO <CR> AND <L 
RE-ENABLE TTY KaD INTERRUPTS 
:BRANCH IF NCT 


; RE-ENABLE TTY KBD INTERRUPTS 


Ah bere CHAR 
CHAR < 0? 
‘BRANCH If YES 
zCHAR > 7? 


“BRANCH IF 4, 
sSTRIP-OFF ASCII 
[1S THIS THE FIRST CHAR 


SEQ 0039 


ave 
~s 
a> 


a tk aia i et a tk et ad et ot = = os = 





s*TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF 


3* MOV NUM,-(SP) ;NUMBER TO BE TYPED 

;* TYP ;CALL FOR TYPE OUT 

:* BYTE N ;N=1 TO 6 FOR NUMBER OF DIGITS 
3*T0 TYPE 


:* -BYTE ™ :M=1_ OR O 
;1=TYPE LEADING ZEROS 
;0=SUPPRESS LEADING ZEROS 


:* 
aie HERE TO TYPE OUT WITH THE SAME PARAMETERS 


B 4 
| com, mACY11 whe 20-MAY-80 09:53 PAGE 4-5 
CZCTBA.P11 20-MAY=80 08:54 SEQ 0040 
| 1285 014412 001403 Beak? :BRANCH IF_YES 
3 aietie 006316 ASL (SP) 3NO SHIFT PRESENT 
8 14416 006316 ASL (SP) CHAR OVER TO MAKE 
88 0144 006316 ASL (SP) ;ROOM FOR NEW ON 
289 014422 005266 000002 Ki7: INC 2(SP) sKEEP COUNT OF CHARACTER 
34) 0144 056616 177776 BIS -2(SP),(SP) ;SET IN NEW CHAR 
91 0144 000707 BR K7 GET THE NEXT ONE 
4 014434 104400 014511 K18: TYPE -QUES TYPE 2?<CR><LF> 
93 014440 000720 R K20 ;SIMULATE CONTROL=U 
Soe 014442 000014 TTYN BLKB- 12. og te 12 BYTE FOR TTYT 
296 014456 052536 005015 000 CNTLU: .ASCIZ /*U/<15><12> ==; CONTROL ‘'U"' 
297 014463 136 006507 000012 CNTILG: .ASCIZ /*G/<15><12>  ;CONTROL ''G'’ 
298 014470 005015 053523 036522 MSWR: .ASCIZ <15><12>/SWR= / 
299 014476 0 
300 014500 020040 042516 020127 MNEW:  .ASCIZ / NEW = / 
301 014506 020075 000 
302 014511 077 QUES: ASCII /?/ ;QUESTION MARK 
303 014512 015 CRLF: ASCII <15> CARRIAGE RETURN 
304 014513 012 000 LF: eASCIZ <12> ;LINE FEED 
305 RARER REET Ee 
3 
| 3 ;THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO 
3 ;*A 6-DIGIT OCTAL (ASCII) NUMBER AND TYPE IT 


ew Ssa~nerruvoe see 


ee ee ee er ee re er Te ee eee ee ee ee ee ee a —> se 8 be ts tt tn tt 
WWW A fo 


AOD EEA A A A tt A ON AN 


S*THE L 
:*TYPOS OR TYPOC 
s*CALL: 
:* MOV NUM, = (SP) ;NUMBER TO BE TYPED 
te TYPON :CALL FOR TYPEOUT 
** 
i TYPOC~--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
> *CALL: 
| if MOV NUM, -(SP) ;NUMBER TO BE TYPED 
;* TYPOC ‘CALL FOR TYPEQUT 
| 014516 EVEN 
014516 017646 000000 TYPOS: MOV Q(SP),-(SP)  ;PICKUP THE MODE 
014522 116667 000001 000211 MOVB 1(SP),FILLO LOAD ZERO FILL SWITCH 
014530 112667 000207 MOVB  (SP)+.MODEO+1 NUMBER OF DIGIT TO TYPE 
014534 062716 000002 ADD , (SP) sADJUST RETURN ADDRESS 
014540 000406 BR TYPON 
014542 112767 000001 000171 TYPOC: MOVB #1,FILLO :SET THE ZERO FILL SWITCH 
014550 112767 000006 000165 MOVB #6.MODE0+1 [SET FOR SIX(6) DIGITS 
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P11 SEQ 0041 CZC 
014556 Aero? 000005 000154 TYPON: MOVB #5,CNTO ;SET THE ITERATION COUNT | CAR 
014566 010346 MOV R3,-(SP) SA VR RS CARI 
Breees 010446 MOV R4,-(SP) + RAVE R4 CARI 
01457) 010546 MOV R5,-(SP) SAVE RS | CARI 
014572 116704 000145 MOVB MODE0+1,R4 GET THE NUMBER OF DIGIT TO TYPE | CARI 
014576 005404 NEG R4 | CARI 
014600 062704 000006 ADD #6,R4 th he ‘ FOR MAX. ALLOWED | CARI 
014604 110467 000132 MOVB R4 ,MODEO gove IT FOR USE CARI 
014610 116704 000125 MOVB FILLO,R4 T THE PERO FILL SWITCH | CARI 
014614 016605 000010 MOV 10(SP),R5 ‘Pr cK UP THE INPUT NUMBER CARI 
014620 005003 : CLR R3 “CLEAR THE OUTPUT WORD CARI 
014 act 006105 Al: ROL R5 ;ROTATE MSB INTO ‘'C"’ CB1 
014 000404 BR A3 360 TO M Cb1 
0146 $ 006105 A2: ROL RS ;FORM THIS DIGIT | CHAI 
014630 006105 ROL R5 -* CKD) 
014632 006105 ROL RS ‘. CKSI 
014634 010503 MOV R5,R3 CLRI 
014636 006103 A3: ROL R3 37GET UsB OF THIS — | CNT 
014640 105367 000076 : DECB MODEO ;TYPE THIS DIGIT } 
014644 100022 BPL A7 BR IF NO CNTI 
014646 042703 177770 BIC #177770,R3 :GET RID OF JUNK CNTI 
014652 001002 , BNE AG TES] FOR CNT( 
014654 005704 TST RG ; SUPPRESS THIS 0? CNT 
014656 001403 BEQ AS BR IF YES COL 

& 0052 Ad: INC RG ;DON'T SUPPRESS ANYMORE 0'S COLI 
014662 052703 000060 BIS #'0,R3 sMAKE THIS DIGIT ASCII CON! 
014666 052703 000040 AS: BIS a’ URS sMAKE ASCII] IF NOT ALREADY CON’ 
014672 110367 000040 MOVB R3,A8 7SAVE FOR TYPING 
014676 010446 MOV R4,-(SP) CON) 
014700 010546 MOV R5,-(SP) CRD! 
014702 104400 014736 TYPE ,A8 3;GO TYPE THIS DIGIT CRLI 
014706 012605 MOV (SP)+,R5 DCMS 
014710 012604 MOV (SP)+,R4 DCm! 
014712 105367 000022 A7: DECB CNTO ;COUNT BY 1 DCM! 
014716 003343 BGT A2 ;BR IF MORE TO DO OCM! 
014720 002402 BLT A6 ;BR IF DONE DCM! 
014722 005204 INC R4 ; INSURE LAST dH 1S NOT A BLANK DCM! 
014724 000740 , BR A2 +60 DO THE LAST DIGIT 0C1 
014726 012605 Aé6: MOV (SP)+,R5 ;RESTORE RS C2 
014730 012604 MOV (SP)+,R4 RESTORE R4 oc3 
014732 012603 MOV (SP)+,R3 ;RESTORE R3 | 0C4 
014734 000207 RTS PC DDI; 
014736 000 A8& BYTE 0 ;STORAGE FOR ASCII DIGIT DEVI 
014737 000 BYTE 0 ; TERMINATOR FOR TYPE ROUTINE DIS! 
014740 000 CNTO: BYTE 0 ;OCTAL DIGIT COUNTER DIS! 
014741 000 FILLO: .BYTE 0 ZERO FILL SWITCH OSwi 
014742 000000 MODEO: WORD 0 ‘NUMBER OF DIGIT TO TYPE 4 
014744 105767 162614 TYPEC: TS1B TPS ;WAIT UNTIL THE PRINTER IS READY 
014750 100375 BPL TYPEC 
014752 116667 000002 162606 MOvB 2(SP), TPB ;LOAD CHARACTER TO BE TYPED INIG DATA REG 
014760 122766 000015 000002 CMPB #15,2(SP) 71S CHAR CARRIAGE RETURN? 

014766 001003 BNE B1 ERRI 
914770 105067 000014 CLRB CHARCNT YES CLEAR CHAR COUNT ERR( 
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SEQ 0042 
1395 014774 000406 BR TYPEX EXIT 
1396 014776 122766 014513 000002 BI: CMPB WLF,2(SP) :1S CHAR LINE FEED? 
1397 015004 00140 BEQ TYPEX “BRANCH IF YES 
1398 015006 10522 INCB (PC) + ‘COUNT THE CHARS 
1399 015010 000000 CHARCNT: WORD 0 “CHARACTER COUNT SPACE 
1400 015012 000207 TYPEX: RTS PC 
1401 
1402 
1403 ; 
1404 ‘TYPE THE CHARACTER IN R4 
1406 015014 032777 040000 163656 TTYOUT: BIT #40000, aSWR s1F SR14=1 DELETE TYPEOUT 
1407 015022 001021 BNE 110.3 
1408 015024 010467 162536 MOV R4, TPB :TYPE CHAR IN RG 
1409 015030 105767 162530 110.1: TSTB TPS 
1410 015034 100375 BPL TT0.1 :WAIT FOR DONE 
1411 015036 022704 000015 CMP #15,RG ‘WAS IT ACR ? 
1412 015042 001003 BNE 110.2 :IF NO = GO EXIT 
1413 015064 012704 000012 MOV #12,R4 TIF YES = PUT LF IN RG 
1414 015050 000761 BR TTYOUT =GO TYPE THE LF 
1415 015052 012767 040000 004000 110.2: MOV #40000,L0C 
1416 015060 005367 003774 DEC LOC 
1417 015064 001375 BNE = 
1418 015066 000207 110.3: RTS PC EXIT 
1420 [READ CHAR FROM TTY INTO RG 
1422 015070 005267 162464 TTYIN: INC TKS :FETCH A CHAR 
1423 015074 032767 000200 162456 TTl.1:. BIT #200, TKS 
1426 015102 001774 BEQ Tl. 1 :WAIT FOR DONE FLAG 
1425 015104 016704 162452 MOV TKB,R4G “READ CHAR INTO R4 
1426 015110 042704 177600 BIC #177600,R4 ‘MASK R4 WITH ALL BUT 177 
1427 015114 000207 RTS P EXIT 
1428 015116 023046 044124 020105 DCMSG1: .ASCIZ /&&THE FOLLOWING VALUES ARE BEING USED/ 
015124 047506 046114 053517 
015132 047111 020107 040526 
015140 052514 051505 040440 
015146 042522 041040 044505 ; 
015154 043516 052440 042523 
015162 000104 
1429 015164 020046 020040 042040 DCMSG2: .ASCIZ /& DEVICE ADDRESS = / 
015172 053105 041511 020105 
015200 042101 051104 051505 
015206 020123 020075 000 
1430 015213 046 020040 020040 DCMSG3: .ASCIZ /& PC INTERRUPT VECTOR ADDRESS = / 
015220 041520 044440 052116 
015226 051105 052522 052120 
015234 053040 041505 047524 
015242 020122 042101 051104 
015250 051505 020123 020075 
015256 000 
1431 015257 046 020040 020040 DCMSG4: .ASCIZ /& BUS REQUEST LEVEL = / 
015266 052502 020123 042522 
015272 052521 051505 020124 
015300 042514 042526 020114 
015306 020075 000 
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SEQ 0043 
DCMSGS: .ASCIZ /88DO YOU WANT TO CHANGE ANY OF THESE VALUES (Y OR N)?/ 
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1433 DCMSG6: .ASCIZ /& ENTER VALUE AFTER (=) IS TYPED/ 


on NOM —NNOOCO 
WS FSF oa 
NO VW—OfO—N— 


ws 

oo 

33 

7 

> 
OMUNNMOOCO-COUu ==] fFNONNS 


SOON SOS SM FEO 


or 


1434 LOGTST: .ASCIZ /@&e*ee* LOGIC TESTS e#eweQg/ 
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1435 475 7 050046 052125 INITM1: .ASCIZ /&8PUT 8035-8045 OFF-LINE, REMOVE ALL CARDS/ 
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040503 042122 
050046 042522 051523 CONMSG: .ASCIZ /&PRESS CR TO CONTINUE/ 
041440 020122 047524 
041440 047117 044524 
023046 051105 047522 PCMSG: .ASCIZ /88ERROR AT ADDRESS / 
020122 052101 040440 
104 042522 051523 
ae 047517 036504 GDMSG: .ASCIZ /&G00D=/ 
631 ooo 040502 020104 BDOMSG: .ASCIZ /&BAD =/ 
041446 046117 046525 COLMSG: .ASCIZ /&COLUMN #=/ 


5653 046 050046 052125 T2MSG1: .ASCIZ /8&PUT 8035-8045 ON-LINE AND PRESS START ON THE 8035-804 
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Q0cacaancavnw AYNNNAVWYH WWW OO 
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/@SPULL CARD PLATE OF STACKER #1 BACK TO POSITION WHICH/ 
/ERPULL CARD PLATE OF STACKER #2 BACK 10 POSITION WHICH/ 


/OWILL SIMULATE STACKER FULL AND RELEASE/ 


/@RPRESS START ON THE 8035-8045/ 
: ,ASCIZ /@PROGRAM WILL WAIT FOR STACKER FULL FLAG/ 
/EBPRESS START ON THE 8035-8045/ 


: .ASCIZ /&&PRESS START ON THE 8055-8045/ 
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1450 TSMSG7: .ASCIZ /B&PRESS START ON THE 8035-8045/ 


1451 05 TOMSG1: .ASCIZ /®8PRESS START ON THE 8035-8045/ 
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04 PIMSG1: .ASCIZ /®8REMOVE ALL CARDS AND PUT THE 8035-8045 OF F-LINE/ 
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046 £4498 052125 PIMSG2: .ASCIZ /88PUT 10 BLANK CARDS IN EACH INPUT HOPPER/ 
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1455 757 046 052520 020124 PIMSG3: .ASCIZ /&PUT 8035-8045 ON-LINE AND PRESS START ON THE 8035-804 
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1456 : 0 053046 051105 043111 P2MSCi: .ASCIZ /8VERIFY THAT THERE ARE 30 BLANK (ARDS IN EACH STACKER/ 


~~ ee tt CE 

wn— ~“ 

SNFESA 
oS ooo 
* wr 
= So 
w * 
o * 
= oO 


000122 


“As HH Ht tt 
WN ee 
PEC nMoOwW> 


© 


= 
rw 
>e 


-MAIN, MACY11 30A(1052)  20-MAY=80 09:53 PAGE 4-11 
CZ2CTBA.P11 20-MAY-80 08:54 SEQ 0046 


P2MSG2: .ASCIZ /&PLACE ALL 20 CARDS IN THE PRIMARY HOPPER/ 
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1458 P2MSG3: .ASCIZ /®PRESS STOP-RESET AND PRESS START ON THE 8035-8045/ 
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33 P2MSG4: .ASCIZ /8PRESS STOP-RESET ON 8035-8045 / 
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1460 34 053046 051105 ett hh P3MSG1: .ASCIZ /&VERIFY THAT ALL CHARS WERE PUNCHED ON EACH CARD IN A/ 


1461 042522 042503 P3MSG2: .ASCIZ /&PRECESS FASHION BEGINNING W.TH COLUMN 11 OF 1ST CARD/ 
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1462 P4MSG1: .ASCIZ /®VERIFY THAT THERE IS A ALL A‘S CHAR PUNCHED IN CARD 1/ 
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P4MSG2: .ASCIZ /&THAT 1S HOLE PUNCHED IN ROW 12 AND 1/ 
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1466 01764 PGMSG3: .ASCIZ /8UP TO 20 ‘ALL A‘S'' CHARS PUNCHED IN CARD 20/ 
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ENDMSG: .ASCIiZ /88END OF TESTING&&/ 
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042504 PROGNM: .ASCIZ /8& DECSPEC=11-CZCTBA=CTS11-JC“HOLLERITH 12-BITS-TEST &&/ 
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mA 
Be 80 0 SEQ 0048 
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peo 00104 1042 re 
020140 004000 4000 38 
020142 00002 22 oe 
020144 00402 4022 3 
020146 00202 2022 i) 
020150 00204 2042 :* 
020152 004012 4012 :¢ 
020154 001102 1102 ie 
020156 002000 2000 ~~ 
020160 001400 1400 3/ 
020162 001000 1000 0 
020164 000400 400 3] 
020166 000200 200 2 
020170 000100 100 3 
020172 000040 40 34 
020174 00002 20 33 
020176 000010 10 6 

20200 0000 6 :7 
020202 000002 2 38 
020204 000001 1 te 

206 000202 202 33 

020210 002012 2012 ; 
020212 004042 4042 ; 
020214 0000 12 ; 
020216 001012 1012 
020220 001006 1006 
020222 000042 42 
020224 004400 4400 
020226 004200 4200 

0230 004100 4100 
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CZCTBA.P11 20-MAY=80 08:5 SEQ 0049 
1556 020314 002006 2006 ” 
324 020316 001022 1022 ; 
1559 020320 000000 0 
1560 020322 000000 0 
1561 020324 000000 0 
1208 020326 000000 0 
1563 0 O38 000000 0 
1564 020332 00 0 
1565 020334 000000 0 
1566 020336 000 0 
1567 020340 000000 0 
1568 020342 0 
1569 020344 000000 0 
1570 020346 00 0 
1571 020350 0 
1572 020352 0 0 
1573 020354 0000 0 
1574 020356 000000 0 
1575 020 000000 0 
1576 020362 000000 0 
1577 020364 0000: 0 
1578 020366 000000 0 
1579 020370 0 
1580 020372 000000 0 
1581 020374 000000 0 
1582 020376 000000 0 
1583 020400 000000 0 
1584 020402 00 0 
1585 020404 004100 CARDO1: 4100 C 
1586 020406 0044 4400 3A 
1587 020410 002001 2001 :R 
1588 020412 004040 4040 :D 
1589 020414 a 
1590 020416 001000 1000 0 
1591 020420 000400 400 i] 
1592 020422 004100 CARDO2: 4100 s¢ 
1593 020424 0044 4400 :A 
1594 020426 002001 2001 3R 
1595 0204 004040 4040 :D 
1596 020432 0 SP 
1597 020434 001000 1000 :0 
1598 020436 000200 200 et 4 
1599 020440 004100 CARDO3: 4100 iC 
1600 020442 0044 4400 3A 
1601 020444 002001 2001 3R 
1602 020446 004040 4040 :D 
1603 020450 0000 :$P 
1604 020452 001000 1000 0 
1605 020454 000100 100 33 
1606 020456 004100 CARDO4: 4100 3€ 
1607 020460 004400 4400 3A 
1608 020462 002001 2001 3R 
1609 0204 004040 4040 2D 
1610 020466 000000 0 3 SP 
1611 020470 001000 1000 0 
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PEASE AEAEAKAAKOAO 


— 


SALUSISSS 


_ 
w 
~ 


a nt 
FEES 
Noo 


333.3 


SOOAAAS 
SESELSEKENSESES 


ot et el el a a ee el el ee el a el od 


3 


020472 


0A(1052) 
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00004 
004100 
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CARDOS: 


CARDO6: 


CARDO?: 


CARDOB8: 


CARDOS: 


CARD10: 


CARD11: 


CARDI2: 


wv 


vu 


Be Se Se Bee 


v 


Be Be Be Be Oe oe 


Be Be we 


vu 


ee eee ee ee. ee . . 
NOT DEPON-$ HK NOD PATO" VOD POVOOMN VD EPOWDOV VD ESPONONUDPAASONVVUDPONOYNIT DE #£ 


vu 


e. Se Be Be Se Se Se we 
uv 


Be Be Be Be 
wv 


v 
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LESSEE 


tk kk et a as ss st os ot ot os ss so 
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oOoooooooo 
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ze 
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00 
000200 


~ CARD13: 


CARD14: 


CARD15: 


CARD16: 


CARD17: 


CARD18: 


CARD19: 


CARD20: 


Be Be Se Be 
v 


e. 
v 


Be Se Be eee 


vu 


Se Se Se Be 


wv 


v 


. ees . ee Se Se. 
MNVTDPAO-VODP VW VOD POIN-VODEPOVAS -—VODPON VO DPOHL$-VOWDPOW"VCDPKPn rw 


uv 


SEQ 0051 


-MAIN, 


MACY11_ 30A(1052) 


 CZCTBA.P11 20-MAY-80 


_ 
SSTSNY | 
DONO 


SOOT 
SBGFAFUGSLS 


are 


PPR 2ON5 
Who 


Pb4 


021032 001000 


021100 177160 
021102 177161 
021104 177162 
021106 177163 
021110 177164 
021112 . 177165 
021114 177166 
021116 - 177167 


021120 000230 
22 000232 


021124 000004 
000001 


saiggrar-80 09:53 PAGE 4-17 


1000 30 
EVEN 

ADR: XX 
BAD: XX 
CARD: XX 
CNT: XX 
CNT1: XX 
GOOD: XX 
HOLD: XX 
INPTR: XX 
LASTPC: XX 
LEVEL: Xx 

Oc: XX 
OUTPTR: XX 

13 XX 
PTR: XX 
SCOPE: XX 
TEMP: Xx 
MPSAV: XX 
TO0G1: XX 
eeeeeens DEVICE ADDRESSES «##eenee 
TCR 177160 
TRH 177161 
SR 177162 
TSRHI 177163 
TOR: 177164 
ne 177165 

TIR 177166 
TIRHL 177167 
jeteeesee INTRERRUPT VECTOR ADDRESSES *##eeeee 
PCV: 230 
PSV: 232 


leeeeeere BUS REQUEST LEVEL ****ee« 
BRLV: 4 
-END 


SEQ 0052 


— sMAIN, (MACYS1_30A(1052) 20-MAY=80 09:53 PAGE 5 . 





C2CTBALP11 =. 20=MAY-80 08:54 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0053 
| ADR 021034 1140* 1141® 1163 1144 31150) -1156—Ss«41:73 6m P 
000706 318 78 . 
-APASS 000704 30" 77s 
ASWREG 000710 3 80 
AUTOR 000712 339 1247 
Al 014622 13508 
Ng 014626 13528 ©1373 «1376 
0146 1351-1356 
Ad 014660 1360 13634 
AS 014666 1362-13654 
Ab 014726 1374 913778 
A? 014712 1358 «=. 13724 
AB 014736 1366* 1369 13818 
B = 000001 2458 
BAD 021036 394% 395" «396 «= GOS*® 118 = 35*® —436eG37# 4606 466* 476% 4778 
4B0* 483e 484" 497% 500" SO0l* 525% 526 5318 $328 5438 §48e §738 
S74 59B® «= 2G) 27 334 6 3Ge GBR 649% = 54e 568 663" 6Ge 6B 
670* 677 678% 685" 686" 690" 691% 7138 7148 7208 7248 725% 7368 
737" 738% 742% 7438 758% 759% 784 785% 798% 799% 800" Bille  812« 
B18* 819% 848 8469 865 866%  867* B82* 883" 890" 8918 914% 915 
921* 1029 1030 1035 1089 1155 17378 
BCI 012252 9lia 912 920 
BDMSG 015631 1153' 14394 
BF 1 020104 716 778 842 928 936 14888 
BFIO 020062 1479" 
BF11 020060 16788 
BF12 020056 16778 
BFI3. 020054 16768 
BFI4 020052 16758 
BFIS 020050 1674 ; 
BF16 020046 16738 
BFI7 020044 16728 
BFI8 020042 16718 
BF19 020040 1470" 
BF2 020102 14878 
BF 20 20036 926 934 14698 
BF «020100 1486" 
BF4 020076 14858 
BFS 020074 1484" 
BF6 —«- 020072 14834 
BF? ~—s- 020070 14828 
BFB sé 14818 
BFS sé 14804 
BLKCRD 012242 647 655 662 669 675 684 711 735 909" 
BRLV 021124 459 1089 «1126 ~=—«1774e 
1 014776 1393 1396 P 
CARD 021040 789 793% B07 852" 858 875" 958 978 17388 } 
CARDO! 020404 853  1585« 
CARDO2 020422 1592" 
CARDOS 020440 1599" ; 
CARDO4 020456 1606# 
CARDOS 020476 16134 
CARDO6 020512 16208 
CARDO? 020530 16278 
Ao88 020546 16348 
CARDOD 020564 16418 


: Ba | ¢ 5 
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CZCTBA.P11 = 20=MAY-80 08:54 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0054 
CARDIO 020602 16484 
CARD 020620 16558 
CARDI2 020636 16628 
CARDIS 020654 16698 
CARDI4 020672 16768 
CARDS 020710 16838 
CARDI6. 020726 16908 
CARDI? 020744 16978 
CARDI8 020762 17068 
CARDI9 021000 4b 
CARD20 021016 17188 : 
CB1 012400 9278 929 
CD1_ 013012 10238 1024 1047 
CHARCN 015010 139%* 13998 
CKDATA 013000 781 795, 809 BGS HZ BTN 
CKSUR 014156 614 = 900 910943 960 1000S ss1181—1177 12394 
CLRBFS 012374 707 926" 
T 021042 589* 590" = 592" 594" = 596 «= 2B# 629" «= O31# 1197" = 1205" = 1210" 1213" =—12208 
1230" 17398 ; 
CNTLG 014463 1249 1297¢ 
CNTLU 014456 1262 1296" 
CNTO 014740 1339" 1372" 1383" 
CNT1 "021064 O51" 657" 672" 679" «= 717# = 727* «= 7BB® «= BOT* = BS1*# = B6B® «17408 
COL. = 000004 242" = 917, 103210371041 
COLMSG 015640 1159 14408 
CONMSG 015550 899 «14368 
CONTIN 012212 392, 4550 S11, 516552 559577 587 1322706778888 
Tl 012222 9018 903 
CROTST 016570 610 1452a 
CRLF 014512 127313030 
DCMSGI 015116 1077 14280 
DCMSG2 015164 1079 1106 1429" 
DCMSG3 015213 1083 1116-1430 
DCMSG4 015257 10871123, 14314 
DCMSGS 015311 109214320 
DCMSG6 015377 1106 14330 
C1 013322 10934 1099 
DC2 013344 1095 1098s 
DC3 (013360 1097, 11038 
DC4 4913410 Wit 1144 
DDISP = 177570 3268 329,367 
DEVCOD 013262 368 10764 
DISPLA 000702 3298 = 367* = 375* 
DISPRE 000174 3198 = 375 
= 177570 3258 328366 
ENDMSG 017722 9 14650 
ERR = 104000 2400 39% 395 39H 40S 1135 3H BT 5G SG 476 
480 483 484493497) 500501 525 5265381 582543 
54B 562 573 574 S9B 624 A733 6843 4B 495K 
656 663664 8 670 677 678 685 686 690 691 713 © 714 
7200 724725 Yi Hw me wm he Be Ke Be mh OM 
798 = 799s B00siB1): <GsBA2 (iB. BB 865 866,—(iéBO?BB 
| 890 = 8917» «921108210387 1041 
ERRHLT 013656 11658 , 
ERROR 013476 316011318 


-. 5 
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CZCTBA.P11 =—-20=MAY=80 08:54 ROSS REFERENCE TABLE == USER SYMBOLS SEQ 0055 
ERRVEC= 000004 326" 364 365" 3768 
€] 013576 11465-11500 
2 013616 1151-1156" 
ES 013636 11371157, 11618 
EG 013660 1164 1166 
FILLO 014741 1333* 1337" «1347 13840 
G = 000002 2uan 
GB = = 000003 4580 5% CSS HS IT 43S 6G CGS7 8S 0G 7G 477 
480 483 484497, 500s 501s 525526 | S581 582 543 548573 
| 574 598 = 624276338634 64849545663 6G tC 
| me 667l:lUlUMklClCU sia a COU CO 
| 737 738742 743 758759 78K i785 7982S 799Ss«BODs—“‘<«éTSCOC;*«‘é#W&S 2 
| 818 = 819 4B i BG BOS HHSC (itsi«éGs«BBZtsCéBS 891 «917,92 
| 103210371041 
(GDMSG §— 015622 11467-14380 
/ GOOD 021046 394" 395* 396* 405* 411* 435* 436* 437* 459« 461 466* 476* 477* 
BO" G83" 4BGe = 497* = 500® «= SO 1e «= 525" «= 526 «= 531# «5328 5438 «548 573s 
S74e 598 = 24" —27# «= 633®# 34% = 4B® 49% = 54" 6568 663*# 64" 6Be 
670" 677 678 685* 6Be 690" = 91" = 713" = 714" «= 7208 «= 72he = 725" 7268 
737?* 738 742" = 743% = 75Be = 759% = 7BGe «= BS «= 798* ~=—s 799% = BO0e = BIl* = B12 
B18+ Bi9* B48 B49»  —Bb5* bbe = BH7* = BBZ2* = -BB3*# «= B90® «—sBIT# «138 «95 
92i* 1028" 1030 1149 17418 
GTSWR 014226 345 12508 
HOLD 021050 403* = 404. 40517420 
INIT 001222 352 3B 6# 
INITM1 015475 389 14358 
INIT 001242 393" 394395396 
INPTR 021052 778* 782 796% B42 Babe B63" 880" 1022 17438 
INTAG 000713 334" © 1274 
K10 014310 1261 12650 
Kil. 014332 1268 12708 
K14 014336 12730 
K15 014360 1260 12462, 1246 1248=1275—Ss«12778 
K16 014362 1266 12784 
K17 14422 1285 12894 
[KIB 014434 1280. 128212928 
/K19 014246 1254# 1264 
'K20 014302 12634 = 1293 
i? 014252 12568 12571291 
9 014270 1260# 
/LASTPC 021054 394 = 395396405 an ca) oe: a a oe ae, 
| 480 484 49% «= 497, 500-'—s«501 ‘5250 «526531 532 543 548 
5 573 574 598 = 62627 33 8G 4 668 669 656 656 
| 663 66 66B_=— 670677 7B C685 BG 691 713714720 
1 ee: Bae Ba. Bem Boag Boe. em.) ee” OS 785 798 
7 800 811 812 818 819 868 8469 865 866 867 882 883 
: 90 891 921 1135" 17640 
“LEVEL 021056 4o4e 452" = 4601745 
uF 014513 13048 1396 
“Loc 021060 1415* 1416" 17468 = 
| LOGTST 015441 87 1434a 
LP = 012320 394" = 3958 396H = 05H 1184358 36H 37H 66847684778 G80 B38 


 .MAIN, MACY11 30A(1052) 20-MAY-80 09: 
CZCTBA.P11 20-MAY-80 08:54 
8484 8490 
MNEW 014500 1933 13008 
MODEO 014742 1334* 1338 
MP : 02 10194 Ges 
/MPSAV 021074 1027* 1033 
| MSW 014470 1250 12984 
OCTDEC 013144 10528 §=1160 
/ 0D1 013160 1055#@ 1059 
' OD2 013204 1057 10614 
| OD3 013222 1060 10654 
| ONES 013254 1053* 1055 
QUTPTR 021062 853* 1003 
/ PASS] 004364 356 6084 
'PASS2 006366 693 7004 
PASS3 007726 761 7684 
/PASSG 011030 820 8278 
PCMSG 015576 1139 14378 
PCV 021120 445* 487* 
PROGNM 017745 344 14664 
PS = 177776 2258 339« 
| PSV 021122 446% 488* 
PT 021064 1195* 119 
PTR 021066 716 722* 
iPlA 004756 6398 644 
| P1B 005032 45 6478 
PID 005170 6528 658 
PIE 005666 6738 680 
| PINT 005026 637 6464 
PIMSG! 016623 612 1/534 
—PIMSG2 016705 618 14548 
|PIMSGS 016757 620 1455¢ 
| P2A 7188 728 
| P2B 007526 752a 753 
| P2C 007562 54 7568 
P2INT 007556 746 755a 
P2MSG1 017050 701 14568 
| Pemsce 017136 703 773 
P2MSG3 017210 528 545 
| P2MSG4 017274 391 14598 
'P2SD1 012450 945a 946 
| P2SEND 012434 721 732 
| P3A 010160 7908 802 
| Pans 017334 769 14608 
| P3MSG2 017422 771 14614 
'P3SD1 012526 961" 962 
/P3SD2 012554 9678 968 
/P3SEND 012510 92 806: 
POA 011300 854" 869 
P4MSG1 017510 8 14628 
P4MSG2 017577 831 14634 
P4MSG3 017645 833 14648 
P4SD1 012704 10018 1002 
P4SD2 «012744 10094 1010 
P4SEND 012674 857 877 
P5SD1 012616 980" 981 
P5SD2 012644 986m 987 


5 
C 


& 2 


3 PAGE 5-3 
ROSS REFERENCE TABLE == USER SYMBOLS 

8654 8664 8678 8828 8834 8904 8918 
1343 1346* 1357" 13858 

1043* 1752¢ 

1064 

056 1061* 1068 1072a 

005* 1747" 

637* 746* 1085 1113 1119* 17694 
443* 449« 489* 492* 639* 642* 748¢ 
638+ 747* 1121" 17708 

17484 

7330 942 1022* 1028 1045* 17498 
835 1457@ 

705 775 837 14588 

950 

756 9424 

966 

972 

816 958a 

100 

1014 

688 999" 

985 

991 


9214 


751¢ 


SEQ 0056 
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PSSEND 012604 856 876 887 978" 

UES 014511 1292 13028 

RDOCT 014070 1108 1118 1125 12200 

RD.1 014100 12228 = §=61231 

RT] 001150 365 gig 

RT2 001156 371 72 3748 

R13 001172 369 3768 

R14 001220 379 3814 

$81 012420 935a 937 

SCOPE 021070 341* 394 395 396 405 
477 480 483 484 494 
548 564 573 574 598 
656 663 664 668 670 
720 724 725 726 737 
798 799 800 811 812 
883 890 891 921 1134* 

SETBFS 012414 839 934m 

SR = 177570 2268 

START 001000 337 3398 

$11 001046 347 350# 361 

$T2 001062 351 3548 

$13 001076 355 3584 

SwWR he 346 = «5350 354 366* 

SWRCK 001110 342 364m 

SWREG 000176 3208 374 1239 1251 

$7$ 014070 12174 

TCR 021100 394 404" 405 409* 411 
499 500 526 554* 
656 660* 664 666* 670 
709* 12 714 718* 723 
759 779* 783 785 790* 


TCRH] 021102 475* 482* 513* 534* 616* 

TOR 021110 914 947* 963* 982* 1003 

TORH] = 021112 969 988* 17634 

TEMP 021072 1198* 1199" 1200 20 1221 

TENS 013256 1054* 1062" 1065 1073a 

TEST] 001446 398 402m 

TEST2 001664 413 4314 

TESTS 002076 439 443m 455 464 

TESTS 002342 468 4758 476 477 

TESTS 003210 503 5094 

TEST6 }§« 004222 580 5844 

021114 396 437 634 653 661 

794 800 808 844 859 

TIRH] = 021116 719 731 74) 791 805 
967 980 986 1001 1009 

TKB == 177562 2284 8 §=1243 1258 1425 

™S = 177560 2278 = 1241 1256 1276* 1422 

™1 013710 1180# 1186 

TM2 013726 1183 1185¢ 

Tm3 013734 1181 11874 

10G 013260 1052" 1058" 1063" 1074# 

1061 021076 958 965* 978« 984« 999« 


F 


368 


17594 
1011 


1225« 


CROSS REFERENCE TABLE == USER SYMBOLS 


3740 


1029 
12268 


674 
855 


1007 


SEQ 0057 


436 437 455 4 466 476 
501 525 526 531 532 543 
633 634 644 648 649 654 
685 686 690 691 713 714 
743 753 758 759 784 785 
848 849 865 866 867 882 


380" 1132 1136 1163 1239 1269* 


466 477 480 484 486* 497 
624 626* 627 636* 649 652* 
678 682* 686 688* 689 691 


736 738 740* 743 745* 757 
804* 810 812 814* 817 819 
881 883 885« 889 891 1081 


17624 
1227* 1228" 1229" 1232 17518 


710 726 734 742 780 
911 921 1023 17648 
873 886 945 951 961 


@oo 
—~~oOO 
MreOw 


1O12e 1013 17538 
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CZCTBA.P11 20-MAY-80 08:54 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0058 
10.1 013770 11984 1206 
ot 014042 1208 12108 
TO. 014046 1214 4 
TPB = 177566 2308 1391" 1408* 
TPS) = 177564 229" §=1389 1409 
TSR 021104 395 436 476 483 501 525 531 543 548 573 598 633 648 
654 663 668 677 685 690 713 720 724 737 758 784 799 
811 818 848 866 882 890 1025 17604 
SRH1] 021106 $23 529 541 546 560 571 17618 
thet 015074 14234 1424 
TO.1 015030 14094 1410 
TO.2 015052 1412 14154 
110.3 015066 1407 14184 
TTYIN 015070 901 1093 1222 14224 
TTYN 014442 12948 
TTvYOUT 015014 904 1067 1070 1096 1100 1162 1185 1212 1223 14064 1414 
TYPE = 104400 2418 343 386 388 390 431 509 514 517 519 521 527 
535 537 539 544 550 555 557 565 567 569 575 585 609 
611 617 619 700 702 704 768 770 772 774 827 830 832 
834 836 898 1076 1078 1080 1082 1084 1086 1088 1091 1103 1105 
1115 1122 1138 1142 1146 1148 1152 1154 1158 1249 1250 1253 1262 
1273 1292 1369 
TYPEC 014744 1278 13894 1390 
/ TYPEX 015012 1395 1397 14004 
TYPMSG 013700 1173 11774 
TYPOC 014542 1252 1337 
TYPOCT 013742 1174 11924 
TYPON 014556 1336 13398 
TYPOS 014516 1332 
TYPOUT 013662 322 1170¢ 
1A 001452 4034 407 
18 001456 4044 405 
1c 001544 4094 11 
1END 001662 406 4278 
1LST 001632 402 415a@ 
24SG1 015653 432 515 14414 
3A 002134 4494 453 
38 002262 456 465 466 
T3INT 0022 445 4584 
4A 2474 4794 480 
148 002550 4828 483 484 
T4C 2724 489" 494 
T4D 00 495 4978 
T4E 003052 4994 00 501 
T4INT 002774 487 496m 
TSA 003254 5234 524 525 
158 003414 5294 530 531 
TSC 003572 5414 542 543 
15D 003660 5468 547 548 
TSE 003776 560@ 564 
TSF 004050 571 572 573 
T5™SG1 016075 518 556 14448 
TSMSG2 016164 520 538 558 “08 14454 
T5MSG3 016234 522 540 570 "4668 
T5MSG4 016305 144674 
TSMSGS 016344 536 566 14484 


CZ2CTBA.P1) 


TSMSG6 0164 

| Pa al : 
1 

1 


-MAIN. MACY11 pe 
-80 


33 
016472 
015744 
016036 
_ 0 M34)! 


. = 021126 


20-MAY-80 09:53 PAGE 5-6 
8:54 CROSS REFERENCE TABLE == USER SYMBOLS 


1073 


1746 
3214 


3 


1074 


1165 1736 
1748 1749 
336" 3388 
466 476 
532 543 
627 630 
664 667 
691 710 
736 737 
785 791 
817 818 
867 872 
952 1133 


8 
12944 


NSNDF OWS WS 
fF —- NWO OOVUW 
—Wwow-ov"- @ 


co~ 
i. e °) 
onr~ 


13314 


8 
1417 


SFQ 0059 


5 
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CZ2CTBA.P1) 20-MAY-80 08:54 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0060 


CKTCR 27a 394 405 411 435 466 477 480 484 497 500 526 532 574 624 
627 649 656 664 670 678 686 691 714 725 738 743 759 785 798 
812 819 849 865 883 891 

CKTDR 29ia 

CKTIR 301 396 437 634 726 742 800 867 921 

CKTSR 2818 395 36 476 483 501 525 531 543 548 573 598 633 648 654 
or So8 44 685 690 713 720 724 737 758 784 799 811 818 848 

LOOP 2618 394 395 396 405 411 435 436 437 455 464 466 476 477 480 
483 484 494 497 500 501 525 526 531 532 543 548 564 573 574 
598 624 627 633 634 644 648 649 654 656 663 664 668 670 677 
678 685 686 690 691 713 714 720 724 725 726 737 38 742 743 
753 758 759 784 785 798 799 800 811 812 818 819 848 849 865 
866 867 882 883 890 891 921 

WIDONE 2478 676 689 712 723 736 757 783 797 810 817 847 864 881 889 

WTIDR 257" 653 661 667 674 683 710 734 780 794 808 844 859 878 

WTODR 2528 719 731 74) 791 805 815 855 872 886 


- ABS. 021126 000 


| ERRORS DETECTED: 0 


CZCTBA, CZCTBA/CRF=CZCTBA.P11 
RUN-TIME: 10 21 2 SECONDS 
RUN-TIME RATIO: 65/34=1.8 
CORE USED: 8K (15 PAGES) 


